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INTRODUCTION 


This book is intended for all Spectrum owners who, having paid 
over £90 for their computer, do not wish to spend a similar sum 
on a selection of decent games programs. Unlike many other 
books, this one does not contain any program that takes only a 
few minutes to enter and even less time to become thoroughly 
boring. In this book you will find 15 games, divided into 19 
programs, which, though they take a long time to enter, will 
provide you (and your family) with endless hours of amusement. 

The range of topics covered includes games of skill, chance and 
adventure, and 13 of the 15 games will fit into the 16K machine, 
each game being designed to make the best possible use of the 
many advanced features available in Spectrum Basic and 
machine code. Each game is accompanied by a short description, 
program notes, a full set of playing instructions and, most 
important of all, a clear program listing to be typed into the 
computer. 

As all the games in this book are of a graphical nature, use has 
been made of the user-defined graphics facility, in order to enable 
the incorporation of useful and entertaining characters. In each 
case, these are clearly labelled (underlined) in the program listing 
and should be carefully entered using the ‘GRAPHICS’ 
command. If in doubt consult the Spectrum Manual. 

In order to improve and speed up some of the games, machine 
code has been used. In such cases, the code has been put into the 
data lines and should therefore be straightforward to enter. 


Chapter One 


Sky-diver 


Score = © 


Description 


You are a member of the crack Spectrum sky-diving display team 
and your orders for the day are to practise target dropping, in 
order to be ready for the big display in the presence of Lord 
Sinclair. 

You are dropped from a small plane at a height of twenty- 
thousand feet and must then free fall for as long as possible, in 
order to limit the effects of the wind. At the last moment, you 
must open your parachute, which will then be carried by the 
wind to land, hopefully, on the target area. However, take care, 
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for after a certain amount of free fall you will become unconscious 
and unable to open your parachute, which is not equipped with 
an automatic device. 

All this may sound easy, but in practice it is not, since the 
speed and direction of the wind are constantly changing, as 
indicated by the meter in the top left-hand corner of the screen, 
and both your drop from the plane and the moment of opening 
your chute must be exact for your landing to be on target. Points 
will be awarded for the precision of your landing and a bonus will 
be added for a dead-centre drop but, remember, you can only 
have ten drops in any one day. Take care and good luck! 


Program 


This program will easily fit into the 16K machine. The only 
difficulties likely to be encountered during the typing stage are in 
the lines that include user-defined graphics and these have been 
clearly marked in the program listing. 


Instructions 


Although the game is difficult to master and it is not easy to 
obtain high scores, the controls are straightforward and easy to 
use. Type the command ‘RUN’ to begin. 


Controls 


The Y-key is used to drop from the plane. The O-key is used to 
open your parachute. 


Notes 


The most complex part of mastering the game is in the under- 
standing of the wind-speed-and-direction meter. The direction 
of the wind is indicated by the position of the moving needle 
with respect to the central block and its velocity is represented by 
the distance of the needle from the block. 

After each drop, press any key to continue with the game. 


7) 
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Sky-diver 


1 GO SUB 6@88: LET sc=@: LET hs=@: FO 
R f=@ TO 111: READ a: POKE USR "“a"tf,a: 
NEXT f 
2 FOR jJ=1 TO 18: BORDER 1: INK 3: PAP 
ER @: CLS : PRINT AT 21,153; BRIGHT 13" " 
3 LET p=INT CRNDX88): INK 4: PRINT AT 
21,133; BRIGHT 13" "“3AT 21,163; BRIGHT 1 
4 INK 6: PRINT AT 21,1983 BRIGHT 13” 
“SAT @,5; BRIGHT 13; PAPER 53" "2: PRINT 
AT 21,183; BRIGHT 13" ": PLOT @,175: DR 
SW 30,8: PLOT @,168: DRAW 90,6 
5 PLOT 8,175: DRAW @,-7: DATA 231,241 
Be; 2099 2ODy 335 1995 S15 252, 3, 253, 2555259 
+9, 253, 252, 189; 189, 189,153,219, 126 
6 PLOT 98,175: DRAW @,-7: DATA 24,24, 
58,60,182,66,195,8,0,8,60,680,680,24,24,12 
6,219,153, 153,68, 102,66 
7 PRINT AT @,123;"Wind": DATA 195,9,@, 
@,9,1,15,63,127,127;,225,192,126, 255,255, 
255; 255; 255, 195,129,8,128 
8 DATA 24@, 252, 254, 254,135, 3,128, 32,2 
4,6,1,;0,9,8,3,4,24,96,128,0,9,0 
3 DATA 24,24, 255, 255; 24, 24,24, 24,0,0; 
2,8,1,BIN 1111@11,255,255,0,0,0,80,224, 24 
e253 205 
1@ INK 6: LET f=@: BRIGHT @ 
15 PRINT AT @,233;"Score="jse;" " 
25 IF INKEY$="y»" THEN GO JO 1808 
27 GO SUB 93580: GO SUB 4880 
28 PLOT @,175: DRAW @,-7 
38 GO TO 25 
12@@5 LET x=f: FOR y=2 TO 19 
12iQ@ PRINT AT y3x3"c"3AT yvtl,x3"d"3: BEE 
= ,@2,@: PRINT AT y,xj;"a"3AT ytls x3" Lb" 
212 LET k$=IJNKEY$S 
1215 GO SUB 3566 


UW) 


S617 IF »y>14 THEN LET k$="" 
18 IF k$="o0" THEN GO TO 2088 
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1826 PRINT AT y,x3" "2 NEXT y 
18634 PRINT AT 193,;x3" ": PRINT AT 28;x35" 


"SAT 21;x3 INK 23;"L": GO SUB 4580: FOR g 

=1@ TO 20: BEEP .98,-9: NEXT 9: BEEP 1,- 
21: LET se=se-1@: LET sc=scx(se>?@): PRIN 
T AT @,22;"Score="3se3" ": PAUSE @: NEXT 
Jj: GO TO 58908 

1588 IF k$="0" THEN GO TO 2886 

1516 GO TO 38 

200@ PRINT AT 1,43" “=: FOR y=» TO 193: G 
0 SUB 3888 

2028 NEXT y 

2023 LET k=ATTR (€21,xJ): IF k=2 OR k=3 TH 
EN GO TO 2025 

2824 GO TO 2840 

2825 PRINT AT 193,x-13" "SAT 18,x-13" 

2038 PRINT AT 21,x3"d"3AT 20,xj"e" 

2835 PAUSE @: NEXT jy: GO TO 500g 

2848 PRINT AT 20,x3"d"3AT 19,xj3"c" 

2056 IF k=68 THEN LET n=8ty/2 

2055 IF k=?7@ THEN LET n=2ty/2 

2066 IF k<>67 THEN GO TO 2180 

2076 LET n=10ty: FOR f=1 TO 20: BEEP .@5 
> f? NEXT f 

2186 FOR s=se TO setn: LET sc=setl: PRIN 
T AT @,233;"Score="3sc3" "“: BEEP .@5,1@: 

NEXT s 

2185 PAUSE @ 

2118 NEXT J 

2128 GO TO 58e@a 

3886 PRINT AT ysx-l3"Jek"3AT yt], xj3"d"5A 
T @-lax-l3 INK 77"ehi" 

3085 PAUSE 5 

3818 PRINT AT y;x-13" "SAT ytilsxj3" “GA 

T poly xd 3" " 

3812 LET d=(4@-p)728: LET x=x-d 

3013 IF x>3@ THEN LET x=38 

3014 IF x<l1 THEN LET x=] 


Sky-diver 


3815 RETURN 

3928 GO SUB 3580 

383@ PRINT AT 15,43" "2? LET f=ft1 

3848 RETURN 

4008 PLOT p,;168: DRAW @,6: PLOT p,168: D 
RAW OVER 13;0,6: LET p=ptINT CRNDX1@)-IN 
T CRNDX1@6): IF p>@ AND p<8@ THEN PLOT p 
:168: DRAW 8,6: RETURN 

4010 LET p=(p<@): IF p>8@ THEN LET p=88 
4820 RETURN 

4506 RESTORE 113: LET c=xx8-8: PLOT c,@: 
DRAW INK 23;24,@: FOR f=28 TO 1 STEP -1 
maa? DATA «399-15 43e-1a0lgelos 4y=1ly 25,2 
SS dgs 2oy ly. TSyHly.25,—1y. 15_=—25, 255-1 
43585 PRINT AT f;x3 INK RNDX6+13"pp" 

43518 IF t>3 THEN READ r,s: BEEP r,s 
43526 PRINT AT f3x3 INK @3" “% 

4538 NEXT £: RETURN 

3466 CLS : PRINT ??" You Scored " 
sec 3" Pts." 

3218 IF hs>se THEN PAUSE @: CLS : LET s 
c=8: GO TO 2 

5228 PRINT ??"Which is the High Score,": 
LET hs=sc: FOR jy=1 TO 2: FOR h=1 JO 20: 
SEEP .@5,h: NEXT h? NEXT 3? PAUSE @: CL 
> : LET sc=@: GO TO 2 

5228 BORDER 1: PAPER @: INK 6: CLS 

2226 FOR f=1 TO 4: FOR 9=1 TO 4: INK 9g: 
SEEP .@5,9: PRINT AT 2;113"Sky Diver": N 

=XT 9: NEAT f 

2248 PRINT ’’"Use the *y? Key to drop th 
= man,": PRINT ?"and use the ’oa’? Key to 
Been his parachute....... ": PRINT ?"Afte 
> each drop press a key to"3’ "continue," 
2**The later you open his"3’?"parachute t 

>2 more points you"3’?"“will score,but bew 
Te after a" 3j’"certain point,you will no 


e 
@ PRINT “able to open his parachutej;a 
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nd"3?"you will make a nice mess on the"; 
oo errr. 

6666 PAUSE @: CLS : BEEP .@5,5: PRINT "N 
-B Allow for the rather erratic" 3? "wind, 
which will catch your" 3? "parachutist and 
Clow him of #3? "course, ”? PRINT 2 ? You 
have 1@ Drops with which you"}3? "must sco 
re as many points as"3? "possible," 

6878 PRINT ’?? "Good Luck and Geronimo": P 
RINT ?"press a key to continue, ": PAUSE 
9: BEEP ,@5,5: CLS =: RETURN 

3868 STOP 

35906 PRINT AT 1,43" “2 LET f=f#l: IF f<3 
1 THEN PRINT AT 1, £3"ab": RETURN 

951@ PRINT AT 1,313" "“: LET f=@: RETURN 


Chapter Two 


Graham the 
Grass Snake 


Description 


{ou area puny, insignificant and hungry little grass snake, which 
>2s been placed in an electrified enclosure. If you so much as 
ssuch the boundary or the red and yellow blocks scattered 


“se your lifelong friend ‘Pete the python’, you must feed on the 
> ae packages of food that are lying about the enclosure. These 
packages are clearly numbered from one to nine, and unless they 
sce consumed in sequence, they will poison your system. If you 
sacceed in eating all the packages, you will be transferred to a 
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more secure enclosure, in which you will find the food much 
more difficult to obtain! 


Program 


This program will easily fit into the 16K machine. It is also easy to 
enter, containing only a few user-defined graphics, which have 
been clearly marked in the program listing, as before. 


Instructions 


When the command ‘RUN’ is given, you will be placed in the top 
left-hand corner of the enclosure. You may then use the controls 
in order to move in search of the food packages. 


Controls 


The Q-Key is used to move up. The A-key is used to move down. 
The O-key is used to move to the left. The P-key is used to move 
to the right. 


Note 


By depressing any other key, you can ‘hold’ the game and burrow 
into the ground for temporary safety. 


1 
5 
Z 
18 
38 
48 
14) 
628 
7@ 
188 


GO SUB 9800: LET hs=@: LET h$="Me" 
BORDER 2: PAPER 7: CLS =: INK @ 
INPUT "" 

LET len=3 

LET sc=@ 

LET ml=1@: LET mc=16 

LET d=5a 

GO SUB 1808 

LET screens=@ 

PRINT INK 435AT lycj"a"5AT I[-IClJsc 


“e013 3" bh sAT yy cg" un x 
BEEP .81,18 


185 


Graham the Grass Snake 


ich 118 FOR n=len TO 2 STEP -1: LET [CnJ=1C 
2-1): LET c€n)J=cC€n-1): NEXT n 
128 LET a$=CHR¢ PEEK 23560 
i3@ LET ([C1J=-1kCag="q"J)t+Cag="a") 
148 LET clij=-1kCag="0")+Cag="p") 
158 LET [=l+1C€1): LET c=ct+el1) 
7 to 162 LET y=yt+lClenJ): LET x=x+cClen) 
Ave 172 IF 1[<@ OR 1>21 OR c<@ OR c>31 OR AT 
TR Cl,cJ=5@ THEN GO TO 500 
i8@ IF ATTR Cl,;c)J=15 THEN GO SUB 288 
‘32 GO TO 108 
220 LET q=UAL SCREENS Cl,cJ: LET sc=sct 


top 
ale 2@5 BEEP .01,30 
218 LET z=z+1: IF q<>z THEN GO TO 589 
228 IF z=9 THEN GO TO 388 
238 LET len=lenti: LET [ClenJ=lClen-1): 
-ET cllenjJ=cClen-1): LET y=y-I[Clend: LE 
vn. s 
Rid x=x-ceClen) 
242 RETURN 
326 LET len=3: LET sc=sct1@@Xscreens: L 
=7 screens=screenst+i: LET d=d+2@: POKE 2 
Ow 33393,;1: PRINT AT 22,8; PAPER 6; FLASH 1; 
BONUS? BONUS’ BONUS’ BONUS ": FOR 
=@ TO 6@: BEEP .@1,i: NEXT i: PRINT AT 
22,9;" "3 


-OKE 23659,2: GO SUB 1808: RETURN 

328 BEEP .2,-1@: BORDER 2: INPUT ""=: FO 
o=1 TO 200: BORDER 1: BORDER 1: BORDER 
> BORDER 1: BORDER 2: BORDER 2: BORDER 
> BORDER 2: NEXT n 

3 BORDER 2 

°@ PAPER 2: CLS =: INK 7? 

@ PRINT °°???’ TAB 53"You cleared "jscre 
’ screens"’??TAB S3"and scored "jsc;" 
ints." 

=@ IF sc>hs THEN PRINT ’?TAB 5S3"The h 
> score was "jhs’’TAB 53;"Held by "jh$? 
as 'Bnt tt AoW “j3seg", "2 LET hs=s 


4) 


>ui Ul Ul NO te 
ae) 


Oo » Wh 


ct 
Mee 


' 


two ou 


> 
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ce: INPUT “What is your name:"3 LINE h$: 
PRINT °?TAB S3"Held by "jh: GO TO 560 
398 PRINT ’?’TAB 5S3"The high score is "3 
hs??TAB S3"Held by "jh$ 
568 PRINT °?’TAB 53;"Another game ?" 
37@ IF INKEY$="y" THEN GO TO 5 
9828 IF INKEY$="n" THEN STOP 
5938 GO TO 572 
1@@@ CLS : FOR n=1 TO d: BEEP .@1,@: PRI 
NT AT RNDX21,RNDX313; INK 2; PAPER 63"¢": 
NEXT n 
1018 FOR n=1 TO 9 
1015 BEEP .@1,20: LET a=RNDX20+1: LET b= 
RNDX30+1: IF SCREENS Ca,;b3J<>" " THEN GO 
TO 1@15 
1820 PRINT AT a;b; PAPER 13 INK 73n: NEX 
Ton 
1030 DIN (C12): DIN cl12) 
104@ LET (=@: LET c=@: LET y=@: LET x=@ 
185@ LET z=6 
1@6@ POKE 23568, 32 
1078 RETURN 
9000 FOR n=@ TO 23: READ a: POKE USR "a" 
tn,a: NEXT n 
3818 DATA BIN @11111198,BIN 1@800001,BIN 
10@100181,BIN 19000001,BIN 18180191,BIN 1 
91111@01,BIN 108@0001,BIN @1111119 
9020 DATA BIN 01111118, 255,255, 255; 255, 2 
29,295,BIN @1111118 
9038 DATA 255;,;255,BIN 11980011,BIN 11900 
@11,BIN 11000011,BIN 11900011,255,255 
9848 RETURN 


Chapter Three 


Sub-hunt 


Description 


You are the captain of the small anti-submarine cruiser ‘HMS 
SPECTRUM’, which has been ordered to seek out and destroy all 
=nemy submarines in the seas surrounding your country. The 
ship is armed with two Mark II Sea Mortars, which are capable of 
“hrowing depth-charges both in front of and behind the ship. 
Due to the slowloading sequence, only one depth-charge can be 
Sred from either mortar at any one time and this will automatic- 
zily explode on contact with a submerged object or the sea- 
>ottom. Unfortunately, the enemy submarines, which may be at 
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varying depths and travelling in either direction, are armed with 
sub-to-surface missiles, which when fired travel vertically 
upwards, exploding when they break the surface of the water. 

As captain, you have three ships at your disposal, with which 
to sink as many enemy submarines as possible. The points you 
score for each kill will depend on the stage of the battle and the 
depth of the submarine destroyed. The game gets progressively 
more difficult, with the number of enemy ships and their firing 
rate increasing all the time. 


Program 


This program will easily fit into the 16K machine. The only 
difficulties likely to be encountered during the typing stage are in 
the lines that include user-defined graphics and these have been 
clearly marked in the program listing, as before. 


Instructions 


When the command ‘RUN’ is given, the game will commence at 
an easy level of play, but thereafter will get progressively more 
difficult. Watch out for submarines close to the surface, since 
these require extra-fast reactions and are generally lethal. 


Controls 


The 5-key moves the ship to the left. The 8-key moves the ship to 
the right. The 1-key fires the left-hand mortar. The 2-key fires the 
right-hand mortar. 


i LET hi=@: GO SUB 78282 

2 PAPER 3S? CLS 

Q@ LET c=14 
24 LET sub=@ 
3@ LET {1=@: LET {2=0 
4@ PRINT AT 4,93” fghi 


ar 


5@ BORDER 2 


Wass Oe HY 


at 


Le 


Sub-hunt 13 


6@ FOR n=5 10 21 
7@ PRINT AT n,@3 PAPER 13" 


88 NEXT n 
360 LET d=.3 
1@6 LET score=@ 
118 PRINT AT @,@; PAPER 2;"SCORE=8Q000- 
HI-SCORE=@@000-----------L]VES=3-- 
120 LET subm=@ 
138 LET lives=3 
14@ PRINT PAPER 23AT @,28+Chi <100@)+Ch 
€180)+Chi <1) Shi 
i5@ INPUT "" 
1280 LET z$=CHR$ PEEK 23556 
1218 IF z$="5" AND c>@ THEN LET c=c-1: 
RINT AT 4,¢;"fahi_" 
122@ IF z$="8" AND c<28 THEN LET c=ctl: 
PRINT AT 4;,c-13"_fahi" 
123@ IF f1=1 THEN GO SUB 2588 
1246 IF £2=1 THEN GO SUB 3589 
1250 IF z$="1" AND f1=@ THEN IF c>@ THE 
GO SUB 2888 
1208 IF z$="2" AND {2=@ THEN IF c<28 TH 
% GO SUB 3088 
1272 IF sub=@ AND RND>d THEN LET sub=1: 
sO SUB 49@@@: GO TO 1890 
1282 IF sub=1 THEN GO SUB 4588 
1232 PRINT AT @,7+Cscore¢1900)+Cscore<1d 
#>+Cscore<1@)3; PAPER 23score 
1122 IF sub=1 AND subm=@ AND RNDDd THEN 
sO SUB 5@@@: GO TO 1128 
1112 IF subm=1 THEN GO SUB 5580 
1122 IF Lives=@ THEN GO TO 9880 
1i3@ GO 1T0 1882 
22262 REM init f1 
e@i@ LET {1=]1 
2226 LET l[1=5 
e389 LET cl=c-l1 


i] 
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25868 REM f1 

2518 LET l1l=t1+1 

2528 IF SCREEN$ C€l1,c¢1)<>" " THEN GO TO 
2788 

2530 IF l1=21 THEN GO TO 2988 

254@ PRINT AT L1l-1,;c¢13; PAPER 13" "SAT U1 
se135°d" 

2558 RETURN 

2788 REM bang fl 

2718 LET sub=@ 

2726 LET {1=@ 

273@ PRINT AT l1l-1,;¢13 PAPER 135" “3AT l1 
scl; PAPER 2; INK 6; FLASH 13;"e" 

274@ FOR i=1 TO 10: NEXT i 

275@ PRINT AT sl,se; PAPER 13" " 

2768 LET score=scoret1Q@xs | 

2770 LET d=d-,.@5+.95xk(Cd=8) 

2788 RETURN 

2388 REM boom fl 

291@ PRINT AT [li1-1;c13 PAPER 13" "“j3AT 11 
sc1; PAPER 23; INK 63 FLASH 13"e" 

2920 FOR i=1 TO 18: NEXT i 

2930 PRINT AT Lige@ilj} PAPER 13° ” 

294@ LET {1=@ 

2958 RETURN 

388@ REM init f2 

301@ LET {2=]1 

382@ LET [2=5 

3838 LET c2=ct+4 

3500 REM {2 

351@ LET [2=12+1 

3520 IF SCREEN$ (12,;¢2)¢>" " THEN GO TO 
3788 

353@ IF (2=21 THEN GO TO 3980 

3548 PRINT AT 12-1,;c23; PAPER 13" “jAT [2 
yo25"d" 

355@ RETURN 

3788 REM bang {2 

3718 LET sub=9 


Sub-hunt 


37206 LET f2=0 


meee PRINT AT 12-1,6¢253 PAPER 15° ° pFiT 


-¢23; PAPER 2; INK 63 FLASH 13"e 


374@ FOR i=1 TO 1@: NEXT i 
375@ PRINT AT sl;,;sce3 PAPER 13” 
2760 LET score=scoret1l@xs | 
2770 LET d=d-.95+.98@5x(d=@) 
378@ RETURN 

3382 REM boom {2 


it 


331@ PRINT AT [2-1,¢23; PAPER 135" “3AT 
-¢2; PAPER 23; INK 63 FLASH 13"e" 


3320 FOR i=1 TO 10: NEXT i 
333@ PRINT AT 12,c23; PAPER 13” 
3348 LET {2=@ 

335@ RETURN 

4200 REM init sub 

#210 LET sl=6+INT CRNDX16) 
4822 LET r=RND 

#232 IF r>.S THEN LET sd=-]1 
4240 IF r<=.5 THEN LET sd=1 
4250 IF sd=-1 THEN LET sc=28 
“260 IF sd=1 THEN LET sc=@ 
£270 LET sub=1 

4590 REM sub 


ey 


#510 IF Csc=1 AND sd=-1) OR (C€se=27 AND s 


<=1) THEN GO TO 4780 
4520 LET sc=sctsd 


#532 IF sd=1 THEN PRINT AT sl,sc~-13 


ER 13" rstu” 


454@ IF sd=-1 THEN PRINT AT sl,sc;3 


B® i;"rtsu 
£558 RETURN 

=72@ REM sub stop 

=71@ LET sub=@ 

4722 PRINT AT sl;sce; PAPER 13” 
=73@ RETURN 

5228 REM sub missile init 

3812 LET sml=sli-1 

3422 LET smc=sctl 


PAP 


PAPE 
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5038 LET subm=1 

55@@ REM sub missile 

5518 LET sml=sml-1 

552@ IF SCREENS Csml,smcJ="" AND sml=4 T 

HEN GO TO 6588 

5538 IF sml=4 THEN GO TO 6080 

554@ PRINT AT sml+l,smce3; PAPER 13" "5AT 
sml,sme3"m" 

5558 RETURN 

6888 REM sub missile boom 

6218 PRINT AT smlt+1,smc3; PAPER 23 INK 63 
FLASH 13"“e" 

6026 FOR i=1 TO 14: NEXT i 

6038 PRINT AT sml+1,smc3; PAPER 13” " 
6848 LET subm=@ 

6858 RETURN 

6588 REM sub missile bang 

651@ PRINT AT 4,¢3 PAPER 2; INK 63 FLASH 
1 3"eees” 

652@ PRINT AT smlt+1,smc; PAPER 13” " 
6538 FOR i=1 TO 30: NEAT i 

6548 LET lLives=lives-1 

6560 PRINT AT 4,c3"fghi" 

6578 PRINT AT 1,173 PAPER 23lives 

6588 LET subm=@ 

6593@ RETURN 

7008 REM characters 

7810 RESTORE 7@1@: FOR n=1 TO 11: READ a 

$: FOR m=@ TO 7: READ z: POKE USR a$tm,z 

NEXT m: NEXT n: RETURN 

7828 DATA "d",8,8,8,68,60,9,9,0 

7038 DATA "e",145,82,52,7, 224,44; 74,137 
7048 DATA “f",8,64,6@, 28,255, 127,63, 255 
7858 DATA "9",8,53;53, 127,255, 255, 255; 25 
a 

7068 DATA "h",128,241, 251,255, 255, 255; 25 
35 200 

7078 DATA “i",@,2;,28, 156,255; 254; 252,255 

7888 DATA "m",@, 24,24, 24, 24; 24, 36, 36 


Sub-hunt 17 


7898 DATA "r",8,8,8,98,127,255, 255,127 

7128 DATA "s",@,8,62,8, 255, 255, 255, 255 

7119 DATA "t",126, 126, 126, 126,255, 255, 25 

255 

7128 DATA "u",@,8,@8,9, 254, 255, 255, 254 
3222 PRINT AT 1@,1@; FLASH 1; PAPER 1; I 

NK 7;"YOU ARE DEADS" 

3212 IF score>hi THEN LET hi=score: PRI 

NT AT 12,18; INUERSE 13; FLASH 13; PAPER 1 

: INK 73"NEW HI-SCORE3" 

3222 PRINT AT 14,8; PAPER 1; INK 73 FLAS 

+ 13"ANOTHER GAME Y/N?" 

$238 IF INKEY$="y" OR INKEY$="Y" THEN G | 
9 no. i 
2240 IF INKEY$="n" OR INKEY$="N" THEN S | | 
TOP | 
2258 GO TO 9939 


Chapter Four 


Turtle Bridge 


SCORE=G96000 LIVES=2 HIGH=00000 


Description 


In this game you are a man who is attempting to cross a deep and 
treacherous river, in order to collect and carry back supplies that 
have been left in the little red hut on the other side. To cross the 
river, you must negotiate a ‘Turtle Bridge’, consisting of several 
of the basking beauties, by leaping carefully from turtle to turtle. 
Unfortunately for you, there is a shoal of red herrings in the 
depths and the turtles are very fond of these. The herrings are 
oblivious to the black shapes above because they are constantly 
feeding on the green weed that grows profusely on the river-bed 
— oblivious, that is, until they find themselves on the menu! 
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The object of the game is to cross the ‘Turtle Bridge’, making 
sure that the turtle on which you are standing does not dive fora 
red herring before you have jumped to the next turtle and, ulti- 
mately, to the opposite bank of the river. Upon your safe arrival, 
you should collect a package of supplies, which you must then 
transport back over the “Turtle Bridge’. You will be given three 
lives with which to score as many points as possible, stacking up 
your packages as you go. Your score will be continually displayed 
in the top left-hand corner of the screen. Good luck, and 
remember: turtles are very fond of red herrings! 


Program 


In order to fit the game into the 16K machine, several memory- 
saving techniques have been employed. The principal technique 
has been the division of the game into two distinct programs 
Turtle 1 and Turtle 2), both of which must be entered into the 
computer before the game becomes operational. 


Turtle 1 


This is the first program and should be typed in and then saved 
onto tape using the name “turtle1”. It is easy to enter, containing 
the user-defined graphics and machine code used in the main 
program. 


Turtle 2 


This is the main game-playing program and should be typed in 
and saved under the name “turtle2’’. When entering this 
program, care should be taken to ensure that there are enough 
zeros (8 complete lines) in line 1 and that the user-defined 
zraphics, clearly marked in the program listing, are entered 
correctly. 


Instructions 


When both programs have been entered and saved onto tape, you 
are ready to play “Turtle Bridge’. First, load “turtlel’’, and then 
cype ‘RUN’. When the processing has been completed, “turtle2” 
will be automatically loaded into the computer. 


20 


Controls 
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The 5-key moves you to the left. The 8-key moves you to the right. 


Note 


You may not return to the left-hand bank of the river without a 
package of supplies, but you can get back to the right-hand bank 
at any time 


1 REM @@age9eR9e0eR9RR0R89R8R0RRRRR2RRRR0RR2 
QBBBeRRRRR0R0RRRRRR0RRRR0RR2R0RR0R0RRB20RR0R000 
BoeegR00RR8RRR0RRRR00RRRR200RRRRR0RRRR00R02 
BVVBeoRBRRR2R0RBR0RR0RRR0R0RRR0RR0RR2R2R00RR0R00 
BBBRRRRRRR0RRRR0R0RRR0RRRR00RRR0RRRRR00R0000 
BooRRRGRGR8R2RR0RR0RRR0RRRR00RRR0RRRRRR0R0Ra0 
BBeRBRRRReR8RRRRR0R0RR0RRR00RRR0R0RR2RRR0R0R0R0000 
BVBRRRRRBR0RBRRRRR0RR0RRRR00RR2RR0R2R0RR0R0R0R002 
BageeggRRRR0RRRRR0R0RR0R2RRRR0R0RRRR0R0RR0R02 
@eoe0a8 
RESTORE 5@: FOR n=USR “a" TO USR "“u 


18 
"EZ 
20 
38 
4 
38 
62 
72 
82 
38 
190 
112 
120 
132 
14 
158 
160 
172 
188 
138 
208 


READ 
POKE 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Zz 

NZ 

n 

8,6,13,7;255,0,8,8 
7,15;31,191,255, 16,8, 
224,248, 248, 252,255, 16,8,0 
8,90,8,90,255,3,5;7 
7:15;,31,63, 255, 144, 168,0 
224, 248; 248,252, 255, 16,32;,0 
@,8,0,90,255,98,8,0 

112,112, 168,112, 255,33, 83,139 
8,9,0,4, 255, 252, 248; 240 
35351575315,;1,2,4 

128, 128,90,192,0,0,128,64 
128; 190, 42,254, 42,62, 128, 64 
124,84, 124,84, 124,08,8,0 
3513557, 75 78,24, 45,56 

236, 192, 128,96,0,9,8,9 

144, 81,138, 74,58, 28,24,16 
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218 DATA 8,8,80,8,255,1,3,3 

226 DATA 1,8,1,;80,12,90,60,;, 64 

238 DATA @,64,8,128,0,128,0,8 

248 DATA 2,24,1880,120,128,0,8,8 

258 DATA 24,680,126, 255, 182,182,182, 182 
26@ FOR n=23796 TO 23989: READ z 

28@ POKE n;z 

230 NEXT n 

388 DATA 62;2,285,1,22;33,208,92,6,5,19 
7, 36,35, 94,35, 205, 38, 93,62,0;, 186, 204, 66, 
$3,62,2,186, 204, 82,93,62,1,186,204,112,9 
3,62,3,186, 204, 128,93,193,5,194, 248,92,2 
21 

318 DATA 6,11,;75, 12,205, 174,93; 62, 32; 21 
5,62,32,215,4, 205; 174,93, 62, 32,215, 4,205 
+174, 93,62, 32,215,4,13, 205, 174,93, 62,32, 
215,201 

328 DATA 6,18,75, 2805, 174,93,62, 144,215, 
§2,145,215,62,146, 215; 281 

338 DATA 6,13,;75,12,205,;, 174,393,62,162,2 
15, 13,4, 205, 174,93,62,16,215,62,2,215,62 
>161,215,62, 16,215,62,8,215,6,18,75, 285, 
174, 93,62, 147,215, 62, 148, 215,62; 149,215, 
2281 

348 DATA 6, 10,75, 205, 124,93,62, 158,215; 
62, 16@,215,62,152;, 215, 4,12, 205, 174,93,62 
»157,215;62, 158,215,4, 2805, 174,93;,62, 16,2 
15,62,2;,; 215,62, 163, 215,62, 16,215,62,0,21 
5,281 

358 DATA 62,22, 215,128, 215,121,215; 201 
368 CLEAR : PRINT AT 18,23; FLASH 13"INS 
ERT TURTLE 2 INTO CASSETTE" 3AT 12,53 INU 
ERSE 13; FLASH 153;"RECORDER AND PRESS PLAY 
> MERGE "" 
Turtle 2 

5 LET hi=a 

10 LET hi=PI-PI 

28 CLS : PRINT INK 6;AT 18,03" GoRM” ; 
INK @3"g9abcgabcgabcgabcgabcg99"3; INK 63" 


22 15 Graphic Games for the Spectrum 


mmm: FOR n=] TO 7: PRINT INK 63" 
' wm”: NEXT n: F 
OR n=1 TO 4: PRINT INK 6} S=SSMmmagumsammmmmages 
i a eres: NEXT 


25 LET LieINT PI 
228 DIM LETS? OFM elia2 
4@ RESTORE 4@: FOR n=1 TO 13: READ L[Cn 
Jy,ceCnj: NEXT a 

28 DATA 9533.75 5995702779595 lla7s Ss 9515 
975 17399 1957921599235 73203928 

66 DIM s(5) 

7Q LET m$="k": LET p=1 

8@ BORDER PI“PI: PAPER 7: INK PI-PI 

85 INPUT “” 

96 LET sc=PI-PI 

198 LET box=PI-P] 

118 PRINT AT 8,83; INK 13 INUERSE 13" SC 
ORE=@0000 LIVES=3 HIGH=88008 " 

128 FOR N=6 TO 25: PRINT AT 17,N3 INK 4 
3€"p" AND RNDD>.SJ? NEXT N 

138 FOR n=6 TO 25: PRINT AT 14+RNDX2,n3 
INK 23"r": NEXT n 

148 PRINT AT @,26+Chi <10800)+Chi <1000)+ 
(hi <1@@33; INK 13 INVERSE 12 5hi 

15@ LET z=9 

166 LET y=0 

17@ RESTORE 17@: FOR n=23761 TO 23769 S 
TEP 2: READ a: POKE n,a: NEXT n: DATA 6, 
18,14,18,22 

18@ PRINT AT 9,303 INK 23"u": 

19@ LET d=.93 

2008 PRINT AT 9,7+Csc<¢19@08)+Csc<18G0)+C 
sc<1@0@); INK 13; INVERSE ljse 

218 LET a$=CHR$ PEEK 23556 

220 IF a$="5" AND Cp>3 OR box=1) THEN 
GO SUB 1288 

238 IF a$="8" AND p<12 THEN GO SUB 280 
Z) 


236 
242 
258 
262 
280 


2398 


322 
338 
342 
358 
362 
12208 
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LET t“INT Celpiv4i: IF £<1 OR 435 7 


GO TO 248 


IF s(tJ=3 THEN GO TO 4800 


PRINT AT lC€p),cCp)3m$ 
GO SUB 82020 
BEEP .803,@ 


IF p=1 AND RND>d THEN LET a$="8": 
SO 10 230 
PRINT INK 23AT 15+RND;RNDX18+65" 4 


GO TO 280 
REM 
REM 
REM 
REM 
REM 
REM 


PRINT AT i{pdselpi3" "5 


BEEP ,008,20 


1220 
1230 
1240 
1250 
1262 
2222 


PRINT AT [CpJ,cCp3jm$ 
GO SUB 880 

PRINT AT iCp)J;cCpj3" " 
LET p=p-1: IF p=1 THEN 
RETURN 


PRINT AT [CpJ;cCpJ3" ": 


BEEP ,.808,45 


2820 
2332 
2840 
2252 
2268 
3200 


mez =7—14+9XCz=1): 


PRINT AT iCpJ;cCpJ jms 
GO SUB 88ae 

PRINT AT [fedgeCpii" * 
LET p=pt+l: IF p=13 THEN 
RETURN 


PRINT Al 2o¥3"G 7 LET = 
LET d=d-,92+,.982xk(Cd=0): 


LET p=p-1: 


GO TO 30808 


LET p=ptl: 


GO TO 3508 


y+Cz=1): LE 


LET m$="gk": LET box=@: LET se=se+C1-dJx 


120 
3018 
3528 


RETURN 
LET d=d-.92+,92xk(d=@): 


BEEP .0@8,50 


LET m$="gi":> LET box=1: LET se=se+l@: 
RETURN 
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4@@8 PRINT AT 10,cCpJi3;"h" SAT S,cCpJsC%m" 


AND box=1lJ3AT 9,clCpjJ3;" “+ BEEP .8;-18: 
LET ti=li-1: IF ti=@ THEN GO TO 4820 
40186 PRINT AT @,19; INK 13; INVERSE 131i: 
PRINT AT S,cCp33" “2: LET p=l1: LET m$=" 


ik": LET box=@: GO TO 288 

4026 IF sc<=hi THEN GO TO 4580 

4038 CLS : PRINT AT 18,83; FLASH 13"CONGR 
ATULATIONS?"3AT 12,33"YOU?VE GOT THE HIG 
H SCORE 2" 

40406 FOR x=-5 TO 69: BEEP .9@@3,x: NEXT x 
4058 LET hi=sec 

456@ PAUSE 5@: CLS : PRINT AT 18,83" ANOT 
HER GAME Y/N ?" 

4510 IF INKEY$="y" THEN GO TO 28 

4528 IF INKEY$="n" THEN PRINT AT 21,03” 
Bye bye 8": STOP 

4538 GO TO 4518 

8000 FOR n=1 TO 5: IF s€nJ=@ AND RNDD.S 

THEN LET s€njJ=1: GO TO 8048 

8005 IF s€nJ=@ THEN GO TO 8840 

8816 IF s€nJ=1 AND RND>d THEN LET s(€nj= 
2: GO TO 8848 

8020 IF sCnJ=1 THEN LET s(€nJ=@: GO TO 8 
842 

8830 LET s€nJ=s€nJ+1: IF s€n3=4 THEN LE 
T s€nj=@ 

8848 NEXT n 

3008 FOR n=1 TO 5: POKE 23760+(n-1)2,sC 
nJ: NEXT n: LET xx=USR 23790: RETURN 


——— 


Chapter Five 


Madmax 


Description 


The year is AD 2000 and the state road into the city of Conurbia 
has been overrun by a strange group of inanimate objects, tired of 
being constantly polluted by the effects of cars. It is up to you to 
nd our planet of these evil creatures, and to help you in your 
campaign, the front of your car has been fitted with a reinforced 
tantalum bumper, capable of destroying anything with which it 
comes into contact. 

In an attempt to halt your carnage of their species, the aliens 
will set up force-field road-blocks, which can only be breached at 
one particular point. 

Remember at all times that your only protection is the tantalum 
bumper at the front of your car and that if you fail to destroy an 
alien, then he is certain to get you from behind! 


Program 


This program is relatively short and will easily fit into the 16K 
machine. As before, there are anumber of user-defined graphics, 
clearly marked in the program listing, which must be entered 
with great care. 


Instructions 


The first and most important point is that the whole game must 
be played in the capitals mode, so before running the program, 
this mode should be set by typing ‘CAPS LOCK’. When this has 
been done, type ‘RUN’ and use the following keys to control the 
sideways motion of your car. 
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Controls 


The Z-key moves your car to the left. The C-key moves your car to 
the right. 


1 LET HS=@: DIM F$(1): BORDER @: PAPE 
R @: INK 72: CLS : GO SUB 3Q@@: INPUT ; F 
LASH 13"INSTRUCTIONS"; FLASH @;F$: IF F$ 
="Y" THEN GO SUB 2@aa 

2 CLS : LET U=@ 

3 LET F=14 

4 LET B=2 

5 LET AS="bd fSahelli jk Bn" 

6 LET BS=CHR$ 2+CHR$ 3+CHR$ 6+CHRS St 
CHR$ 4+CHR$ S+CHR$ 6+CHR$ 4+CHR$ 6+CHRS 
3+CHRS 4+CHR$ S+CHRS 6 

7 LET M=@: LET S=@? LET X=15 

20 FOR K=@ TO 20: PRINT INK 4; 
aa i a"3 INK 4} "Jc 

3@ NEXT K 

5@ FOR J=1 TO 13 

| 6@ LET 2$=CHR$ 19+CHR$ 1+CHR$ 16+BS(J) 

+AS( I) 
7@ FOR Q=1 TO 18 
8@ LET D$=INKEYS 
9@ LET X=X+(D$="X" AND X<2Q)-C(D$="2" A 
ND X>1) 
1@@ PRINT AT 21,X3" a " 
162 PRINT AT U,F3; FLASH 152% 
165 PRINT AT U-1,113" 
178 LET V=U+] 
18@ IF U=2@ AND F=X+1 THEN PRINT AT 28 
sFs"e" SAT 19,F 9" “2 LET S=StJ? LET U=INT 
(J72): GO TO 18@2 
195 IF V=22 AND M=1 THEN IF X=N+7 THEN 
GO TO 1881 
208 IF U=22 THEN GO TO 1180 
21@ GO TO 8@ 
509 LET N=-1! LET F=11" LET Usegs 
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31@ LET e$=CHR¢ 16+CHRS 4+" " 
526 LET N=INT CRNDX9)+4: LET 2$(NJ=" " 
334 LET M=1: GO TO 8@ 

10@@ POKE L,1@: FOR H=2@ TO @ STEP -1: P 
OKE T,;HxXJ: POKE R,HxXJ: LET K=USR 32080: 
NEXT H: PRINT AT 2@;F3" "=: LET F=INT CRN 
Dxk39)+12 

1061 PRINT PAPER 43; INK @3AT 2,13"H,.SCO 
RE" SAT 3,33HS3AT 8,83;"SCORE="3S;5AT 1,03" 
SHEET "3J3"="GASCJISAT @,245"ALIEN "505" 


1902 IF M=1 THEN LET @$=U$: LET M=@: LE 
T V=@: LET F=11+INT CRNDX1@): PRINT AT 2 


1,115" "2: GO TO 186 
1Q@@5 IF RND>.7 THEN GO TO 580 
181@ NEXT Q 


1015 POKE L,1@: FOR G=5@ TO @ STEP -1: P 
OKE T,G: POKE R,G: LET 2=USR 3208: NEXT 
G: FOR G=1 TO 5: BEEP .1,2@: NEXT G 
1828 NEXT J 

1848 PRINT ???7??9>"YQU HAUE COMPLETED Y 

OUR MISSION, THE ROAD IS NOW OPEN........ 
1045 POKE L,1@: FOR F=10@ TO 1 STEP -1: 
POKE T,F: POKE R,@: LET 2=USR 32080: NEX 
TF 

1@5@ GO TO 1126 

118@ POKE L,15@: POKE T,@: POKE R,@: RAN 
DOMIZE USR 32@@@: POKE L,1@: FOR F=8 TO 
180 

1185 POKE T,F: POKE R;@: LET 2=USR 32002 
1118 LET B=8-B 


1125 NEXT F 

1126 IF S>HS THEN PRINT AT 3,33 FLASH 1 
; INK 43; PAPER @3S3AT 18,113"HIGH SCORE? 
“SAT 93,11;"e5ge0ececececee" SAT 11,113"e50xe5ccee 
eeeee": FOR G=@ TO 3: FOR F=@ TO 7: BEEP 


112@ PRINT AT 21,;%3 INK B; PAPER 8-B3" a 


27 
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»@1,GXF: NEXT F: NEXT G: LET HS=S 
1136 IF INKEY$<>"" THEN GO TO 1138 
114@ IF INKEY$="" THEN GO TO 1148 
115@ GO TO 2 
2000 LET M$="THE YEAR..... 2806 A.D"+CHR$S 
13+"THE STATE ROAD INTO CONURBIA HAS 
BEEN OVERRUN BY A STRANGE GROUP OF IN 
ANIMATE OBJECTS TIREDOF CARS POLLUTING T 
HE EARTH?S ATMOSPHERES « sam sa ae Soo 
IT IS UP TO YOU TO RID OUR PLA 
NET OF THESE EVIL CREATURES... YOUR CAR HA 
S BEEN FITTED WITH A REINFORCED TANTALUM 
BUMPER WHICHDESTROYS THESE CREATURES... 


" 
nso ea 


201@ LET M$=M$+"YOU MUST BUMP INTO THEM 
AND DESTRUY THEMsasas csEVERY SO DPTEN 
YOU WILL COME ACROSS ROAD BLOCKS $ 
ET UP BY THE CREATURES WITH ONLY ONE GA 
P FOR YOU TO GET THROUGH. waa. « KEYS 8, 


GHT.AAY THE FORCE BE WITH YOU § 8 2* 
262@ POKE L,S: FOR U=1 TO LEN M$ 

2023 LET D=INT (CU71@8@03+2: PRINT BRIGHT 
13 INK D3M$CUJ 3: POKE T,D0x4: POKE R,DXCI1 
NT CU%2)=U72): LET 2=USR 32000: NEXT U: 
BORDER @: PAUSE @: CLS : RETURN 

30806 FOR F=@ TO 111: READ A: POKE USR "A 
“erg hts NEAT F 

301@ DATA 126,A,66,A, 126,66,66, 126,60, 24 
7A,5A;5A, AS ASA, @,8,3;,15,63,15,3,;8,178,85;1 
76,85, 178,85, 178,85, 150,45,91, 204,108,221 
11,50, 255,24,A,189 

38020 DATA 189,A;126,68,0,60,66,64, 78, 66, 
68,6; 255,1239,189,165, 165,189,129,255, 145 
182,;52,31,248, 44, 74,137, 16,56, 16,124, 16, 
124, 16,254, 24,68, 126,A,A;, 60, 24, 24 

3038 DATA 1,3,7,15,31,63,127,255,31,55; 1 
15,241,143, 206,252, 248 

3035 DATA 68,126, 255,219,255, 195,255, 219 


Madmax 


3842 FOR F=32008 TO 32021: READ A: POKE 
=,A: NEXT F 
(3845 DATA 14,8,62, 184,211, 254,6,8, 16,254 
e2, 8,211, 254,6,0, 16, 254, 13, 32, 237, 201 
3855 LET L=32@01: LET T=32007: LET R=320 
nis 
3260 RETURN 

$3893 POKE L,S: FOR F=58 TO @ STEP -1: PO 
“KE T,F: POKE R;,F: LET 2=USR 32000: NEXT 
F: FOR F=1 TO S: BEEP .1,2@: NEXT F 


Chapter Six 


High and Low 


YOU WIN R 


STAKE = $100 


Description 


If you like a good game of cards and a little flutter without the 
worry of losing your shirt, then now is your chance to try to break 
the bank, without risking a single penny. 

In this game of ‘High and Low’, the computer is the banker and 
will start the game by dealing five cards face down on the screen, 
having credited you with $100 with which to play. The object of 
the game is to progress along all five cards, stating whether the 
next one to be turned over will be higher or lower than the 


i i 
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previous one. At the start of each round you will be shown the 
first card and asked how much you would like to gamble. You 
must then forecast the next four cards correctly in order to double 
your initial stake. But remember, one incorrect guess and you 
lose the round and your stake. Just to make things a little worse, 
the computer has been given a slight advantage, in that when a 
pair occurs, it automatically wins the round. 


Program 


This program is quite long and takes up the whole of the memory 
of the 16K machine. There are also a number of user-defined 
graphics, clearly marked in the program listing, which must be 
entered with great care. 


Instructions 


When the command ‘RUN’ is given, the computer will deal five 
cards face down on the screen, after which there will be a short 
delay before the first card is turned over and you are requested to 
state the amount of your stake for the first round. Having 
done this, you must make your forecast as to whether the next 
card will be HIGHER or LOWER (H/L). If you are correct, the 
game will continue until you have correctly forecast the remain- 
ing three cards, at which time your stake will be adjusted and the 
next round will begin. If at any time during the round you make 
an incorrect guess, your stake will again be adjusted — this time 
downwards! — and the screen will be cleared for the next round. 


Controls 


The L-key is used to indicate lower. The H-key is used to indicate 


higher. 
1 BORDER 4: PAPER 4: CLS : INK @: LET 
stake=189 
Z2 CLS = LF PEEK CUSR ’a'+320O80 THEN 
GO SUB 9888 


3 DATA 12,9,8,9,0,8,9, 16,0, 24 
4 LET z=1: IF stake=@ THEN GO TO 480 
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5 RESTORE 3: LET e$="bebebeb" 
6 LET w$="YOU WIN "? LET [$=" 
BAD LUCK YOU LOSE" 
2 IF stake>1@@@ THEN GO TO 598@ 
1@ FOR w=@ TO 2? STEP 8: FOR a=@ TO 8: 
PRINT AT a,w3e$: NEXT a: NEXT w 
2@ FOR a=12 TO 2@: PRINT AT a;@je$: NE 
XT a 
68 PLOT 275,88: DRAW 158,90: DRAW @,-4@: 
DRAW -158,8: DRAW @,48 
71 PLOT 188,18: DRAW @,20: DRAW 39@,@: 
DRAW @,-2@: DRAW -98,@8 
22 PRINT AT 19,133;"STAKE=$" j;stake 
186 IF z=1 THEN GO SUB 3988 
118 LET z=2 
208 GO TO 9388 
600 REM 8draw cards? 
6@5 READ vu,h: LET e$=" 
61@ PAPER 7: FOR i=@ TO 8: PRINT AT vti 
sh je$2 NEXT i 
63@ LET f=CODE a$(c,3): LET f#=a$lc,4) 
64@ INK VAL a$Cc,5) 
65@ PRINT AT vtl,htljsfSjAT vt7A,ht55f$ 
668 PRINT AT vt2,htljagslc,3)53AT vt6,ht5 


ja$(c,3) 

67@ IF f=55 OR f=56 OR f=S7 OR f=151 TH 
EN PRINT AT vt ,ht23f$3" "“SfSSAT vt? ht 
ZEST? PES 

68@ IF f=52 OR f=53 OR f=54 THEN PRINT 

AT vtZ,ht+254$3" “Z4S53AT vt6,h+2;3495" "5 
t¢ 


636 IF f=151 OR f=5@ OR {=51 THEN PRIN 
T AT vt2,h+3;5fS3AT vt6,h+35 5S 

70@ IF f=56 OR f=57 OR f=58 OR {=151 TH 
EN PRINT AT vt3,ht+2;3f$3"% “SFSSAT vt5S,ht 
Zetsph Fats 

718 IF f=54 THEN PRINT AT vt4,h+25f$3" 
"Sts 

726 IF {=65 OR f=51 OR f=53 OR f=57 THE 
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N PRINT AT vt4,h+354$ 


738 


IF f=55 THEN PRINT AT vt3,h+354$5A 


T utS,ht+2j;FS3" "5 FS 


742 


IF f=74 THEN PRINT AT vt3;,ht435" 85 


AT vt4,h+23%— FGAT otS,n+2 5 “Sm! 


738 
“SAT 


IF f=61 THEN PRINT AT vt3,ht2; ‘iii 
Vt4,ht23 "We BGAT vtS,ht25 "Si SAT v 


+6,h+457 8 


760 
ight 
772 
776 
388 
1808 


IF £=?75 THEN PRINT AT vt3;h+23°F 
Ut4 ht25 "MR GAT tS h+25 

PAPER 4: INK @ 

RETURN 

GO SUB 680 

PRINT AT 14,1135” a) 


AT 14,115"PLACE YOUR BET" 


181 
1820 
1838 
1848 
Ss TO 
18598 
1862 
1861 
1862 
1865 
1066 
1867 
1868 
1863 
1878 
18275 
1888 
1898 
AUSE 
18395 
2186 
3882 
3885 
3812 


INPUT bet 

IF bet>stake THEN GO TO 1818 
PRINT AT 14,113"YOUR BET IS $" 5bet 
IF c=5 THEN LET stake=staketbet: G 
2 

PRINT AT 14),113"HIGHER OR LOWER " 
INPUT ns 

IF h$="h" THEN LET y$="HIGHER®” 

IF h$="l" THEN LET y$="LOWER" 

LET q=VAL a$(c,1 TO 2) 

LET q1=VAL a$(Cct1,1 TO 2) 

IF q1>q THEN LET c$="h" 

IF al<q THEN LET c$="{" 

IF ql=q THEN LET c$="s" 

PRINT AT 14,113" YOU CHOOSE "“5y$ 
PAUSE 1980 

LET c=ct+tl: GO SUB 692 

IF c$=h$ THEN PRINT AT 14,11 3w$: P 
125: GO TO 1840 

PRINT AT 14,11;t$: PAUSE 125 

LET stake=stake-bet: GO JO 2 

REM 8define cards2 

PRINT AT 14,133"PLEASE WAIT" 

DIM a$(53;5) 
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3028 LET c=@ 
3048 LET s$="cdifg" 
386@ LET d$="14AG22033044055866077088899 
10h11J512Q13K" 
3870 FOR s=1]1 TO 4 
3088 LET a=2 
3090 IF s=1 OR s=4 THEN LET a=@ 
3188 FOR n=! TO 13 
311@ LET c=ctl 
3120 LET a¢(cJ=d$(nk3-2 TO nx3)+s$(sJ+ST 
R$ a 
3138 NEXT n: NEXT s 
3286 REM 28random choice of card? 
3218 FOR c=53 TO 2 STEP ~-1 
3228 BEEP .@lsc 
3230 LET a=(52-CRNDX8))+1 
3240 LET a$(cJ=a$(a):? LET a¢laJ=a$(c-1) 
325@ NEXT c 
3268 FOR c=2 TO 53 
3274 BEEP .@2,¢ 
3288 LET a$(c-1)=a$(c) 
3238 NEXT c 
330@ LET c=] 
33198 RETURN 
4000 BORDER 1: PAPER 1: CLS +: INK 7? 
4018 PRINT AT 18,43" You iost all your mo 
neygg" 
4820 PRINT AT 15,83;"Another game Cyn)" 
4832 INPUT b¢ 
4048 IF bS="y" THEN RUN 
4058 STOP 
5@@8 LET d=@: LET b=175: FOR a=255 TO 15 
@ STEP -18 
5985 BEEP @.1,a-200 
53@@6 BORDER RNDX6 
5Q@1@ PLOT d,d?: DRAW a,@: DRAW @,b: DRAW 
-a,@: ORAW @,-b 
5020 LET d=d+2: LET b=b-1@: NEXT a 
| 53@3@ PRINT AT 15,43;"YOU BUST THE BANK" 


High and Low 


PAUSE 5@: GO TO 4882 

STOP 

RESTORE 364@ 

FOR f=USR “a" TO USR "i"t+? 

READ a 

POKE f),4 

NEXT 

DATA @,9,9,9,0,8,90,@ 

DATA 178,85,178,85,178,85,178,85 
DATA @,56,56, 16, 214, 254, 214,16 
DATA @,16,56,124, 254,254, 214,16 
DATA 17@,178,85,85,170,170,85,85 
DATA @, 188,254, 254, 124,124,56,16 
DATA 8, 16,56,124, 254, 254, 214,16 
DATA 152,164, 164, 164, 164, 164, 164,15 


DATA 128,128,128,128,128,128,128,12 


RETURN 
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Chapter Seven 


Dropout 


Description 


A new and exciting game of skill and logic, requiring a quick 
brain and even quicker reflexes. Similar to ‘Breakout’, you will 
find this game easy to play, hard to play well and virtually 
impossible to master. 

You are faced with two multi-layer walls, situated at the top 
and bottom of the screen, and a ball in the centre. The object of the 
game is to clear all the bricks by deflecting the ball from one wall 
to the other. You are given complete control over the sideways 
motion of the ball by using keys 1 to 9. However, this only 
simpiifies matters slightly, since the walls are generated 
randomly and you cannot therefore assume that the number of 
bricks in both walls is the same. 

If a ball goes off the top or bottom of the screen, you auto- 
matically lose that ball. If, however, a ball goes off the screen to 
one side, you lose a fraction of your total score and the ball can be 
brought back into play by using an appropriate direction key (1 to 
9). 


Program 
This program will easily fit into the 16K machine. As before, there 


are some user-defined graphics, clearly marked in the program 
listing, which must be entered with great care. 


Instructions 


When the command ‘RUN’ is given, the computer will request 
you to enter the game speed on a scale of 0-9 (0 = fast, 9 = slow) 
and the number of balls per game (1-6). After you have entered 


wr 
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these values, the playing area will be set up and the game will 
commence. 


Controls 


The 5-key moves the ball vertically. Keys 14 move the ball to the 
left. Keys 6-9 move the ball to the right. 


Note 


The use of key-1 or key-9 will cause considerable sideways 
motion of the ball and could, without care, result in the loss of 
your score. 


GO SUB 2008 
PAPER 7? 
BORDER 7? 
INK ? 
BRIGHT 1 
CLS 
18 GO SUB 1882 
2@ LET x=15: LET y=1@: LET ay=-1: LET 
ax=4 
3@ LET fy=y: CET fx=x: PRINT AT y,x; I 
NK @3"b" 
35 FOR {=@ TO g9sX3: NEXT { 
4@ LET a$=INKEY$: IF a$>"@" AND agcUi" 
THEN LET ax=CODE a$-53 
45 LET x=xtax 
528 LET y=ytay 
SS PRINT AT fy, fx3 INK 275" © 
68 IF »y=@ OR y=28 THEN LET b=b-1: PRI 
NT AT 21,253; BRIGHT @3p: FOR z=1 TO 5: R 
EAD a,c: BEEP a,c: NEXT z: IF b<>@ THEN 
RESTORE 9868: GO TO 28 
65 IF b=@ THEN GO TO 588 
7@ IF x<@ OR x>31 THEN GO SUB 15@ 
9@ IF ATTR Cy¥,;xI<>127 THEN GO SUB 114 
186 GO TO 38 
118 LET ay=ayx-] 


Ou BWNO 
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111 LET sc=se+CATTR Cy,;xI-1273X-1: PRIN 
T AT 21,1153 BRIGHT @;sc 

11S INK 2s PRINT AT Y.%5°X" Ss) BEEP B15 
1@: PRINT AT wows!" $s BEEP ,@1,57? PRINT 
AT y,x3"ce"5: BEEP .@1,@:> PRINT AT y;x3 
INK 7a" ™ 

116 IF sc71@@@=INT Csc710@80) THEN LET 
p=b+1: PRINT AT 21,253; BRIGHT @3b 

117 IF CscettotIJ7126@=INT CCscttotj71268 
} THEN GO TO 2 

128 INK @ 

125 RETURN 

15@ IF x<@ THEN LET x=1 

155 IF x>31 THEN LET x=32 
166 PRINT AT 18,23;"Bad luck you have ju 
st lost 17S’th of your points" 
t6i LET sr=se 
165 LET sc=sce-INT Cse75) 
166 LET tot=tottsr-sc 
l6? BEEP 2lwl2? BEEP «133 
17@ PRINT AT 21,113 BRIGHT @3sc;" " 
t7l IF INKETS<>"" THEN GO TO 171 
172 IF INKEY$="" THEN GO TO 172 
175 PRINT AT 186;@3 INK 7273" 


18@ RETURN 

3@@ PRINT AT 18,12; FLASH 13; PAPER @; I 
NK 63"Game over": FOR f=1 TO 11: READ a, 
@? BEEP 65@2 NEXT # 

S@5 PRINT AT 10,123" . 

51@ IF sce<=hs THEN GO TO 528 

S15 LET 9s=os-1: LET aAsS=se: PRINT AT @, 
7; BRIGHT 1; FLASH 1; PAPER @; INK 63"Ne 
w High Score : "3ns+ FOR g=1 TO 3: FOR f 
=@ TO 25: BEEP .92,/: NEXT {: NEXT 9 

517 IF 9s=-1 THEN LET 9s=@ 

520 RESTORE 906@: LET tot=@: CLS : LET 
b=ba: LET sc=@: GO TO 2 


1@@@ LET d=1: INK @ 
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1818 FOR y=2 TO iB 

1928 FOR x=1 TO 32 

1925 IF y>? AND y<13 THEN LET d=6: NEXT 
bed 

1@3@ IF INT CRNDXS)=1 THEN LET tot=tot+ 
1: GO TO 1952 

1245 PRINT AT y;x; INK dj a! 

1@5@ NEXT x 

1856 LET d=d+1 

1857 IF y>12 THEN LET d=d-2 


1868 NEXT » 
1076 PRINT AT 28,8; BRIGHT @; 
© Score :Q 
Balls:"35b35" 


1975 PRINT AT @,9@;5 BRENT Q;" 
“SAT @,83 INK @3"Hi 
Bh Score:"jhs 
1888 RETURN 
2000 BORDER @: PAPER @: INK 6: BRIGHT @: 
CLS 
2818 POKE 23692,255 
2815 BORDER @: PAPER @: INK 6 
28026 FOR f=1 TO 6: FOR g=1 TO ? 
203@ INK 9: BEEP .83,;9: NEXT 9: NEXT f 
204@ INK 6 


2B45 PRINT 2272722229739 99399999799999 
2050 PRINT " Rules";AT 21,185; 9 
JER 13" vere 


2052 PRINT “In this game you control ab 
mL": PAUSE 75 
2053 PRINT ?"which knocks out bricks fro 
ma "+ RAUSE 7S 


2054 PRINT ’"“couple of walls.": PAUSE 75 
2055 PRINT ’'The ball bounces vertically 
2: PAUSE 75 


2@56 PRINT ’"“between the two walls, whil 
em you": PAUSE 75 
2057 PRINT ?"control the horizontal move 
ment.” : PAUSE 75 


39 
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2858 PRINT ’?"The keys you use are keys " 
PAUSE 27S 

2059 PRINT ’"?1? ECmoves ball to the far 

leftJ*’: PAUSE 75 

2866 PRINT ’"ranging to ’?9’ [moves ball 


to ": PAUSE 75 

2661 PRINT ’"the far right].": PAUSE 5@ 
2062 PRINT ’?’? "The deeper the colour of 
Ehe “: PAUSE 2S 


2863 PRINT ?"brick the more points you 9 
eft “? PAUSE 25 

2066 PRINT ’?"for it Lie. a yellow brick 
is “3s PAUSE 7s 

2067 PRINT *"“worth 1 point, whereas a bl 
ve *2 PAUSE 25 

2068 PRINT ?°brick is worth 7 points].": 


PAUSE 75 
2463 PRIN] 2°32” & OGD L U & K® 
PAUSE 208 
2670 PRINT 229 279 Raa so PME Te ow IP IA IW2 22999 


TBA D 


2030 INPUT “Game speed [ @-fast,93-slow J} 
9S 
2091 IF 9s<@ OR gs>3 THEN GO TO 2890 
2695 INPUT "Number of balls [ between 
1 and 6 J] "ib 
2096 IF b<1 OR b>6 THEN GO TO 2095 
20397 LET ba=b 
2100 LET hs=@: LET sc=@: LET tot=@ 
39688 FOR x=@ TO 23 
9018 READ a: POKE USR "“a"tx,a 
98286 NEXT x 
3038 DATA @,127,127,127,127,127,127,127 
39035 DATA 8;9,28;62,62,62; 28,2 
93848 DATA 2,8,@8@,24,24,9,9,8 
39856 RETURN 
S@6@ DATA .2355.155 25.0538% .29 390292 
3470 DATA .8SSg—-leeacag—Le elem la .45=ly 2 25a 
te lSg Ia Zo lee lola eZ5o—les loa Zag) 


ha omens 
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Shoot the Moon 


Description 


You are stranded on a strange planet in the far-off reaches of the 
universe and your only source of food is the peculiar variety of 
duck that inhabits this otherwise deserted land. This species of 
duck has evolved over aeons of time so that it will now fly only 
under conditions of total darkness. Although abundant, these 
ducks are seldom to be seen, owing to the existence of a Sun and 
Moon that have the uncanny knack of appearing at irregular 
intervals, to spread light over this otherwise dark domain and 
send the ducks scurrying back to the safety of their unreachable 
habitat in the deep, inner recesses of the planet’s core. To combat 
these problems you are armed with a single-shot Mega-beta rifle, 
which is capable of both killing the ducks and extinguishing the 
light from the Sun or Moon for a short time. 

In this forbidding environment you can only survive for a short 
time without the sustenance to be gained from eating vast 
quantities of high-protein duck. So you will have to kill a lot of 
ducks if you are to survive for long! Good duck and bon appétit! 


Program 
This program will easily fit into the 16K machine. As before, there 


are some user-defined graphics, clearly marked in the program 
listing, which must be entered with great care. 


Instructions 


When the command ‘RUN’ is given, the game will commence and 
you will have a life expectancy of twenty-five planetary days. This 
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can be extended by an additional five days for every five ducks 
consumed. 


Controls 


The 5-key moves you to the left. The 8-key moves you to the right. 
The 0-key fires the single-shot rifle. 


1 LET m= 
2 LET sun=3]1 
3 LET moon=3] 
4 LET duck=31 
5 LET sc=@ 
6 LET 90=8 

7 LET su=@: LET mo=@: LET du=@ 

18 CLS 

11 FOR i=1 TO 5 

12 READ a$ 

13 FOR j=@ TO ? 

14 READ a 

15 POKE USR a$tJj;a 

16 NEXT J 

17 NEXT i 

18 DATA "a",56,56,56, 16,64, 16,40, 40, "b 
"7 60s 1263 2595 2555 2555: 25995 126; 60, “oy 1652 
4,28, 38, 38,28, 24,16 

19 DATA "d",14,15,62,124, 248, 128,32; 48 
2" £"5,24,24,24,24,24,24,68, 68 

2@ PAPER 1 

38 CLS 

4@ FOR i=@ TO 31 

5@ PRINT AT 18,i3 INK 45°m" 

S1 PRINT AT 2@,i3; INK 73"m" 

52 PRINT AT 19,;i3 INK 73; "m" 

53 PRINT AT 21,;i3 INK 73" 

6@ NEXT i 

65 PAPER 7? 

7@ PRINT AT 193,@;"DUCKS" 

B@ PRINT AT 28,903;"SUNS" 

398 PRINT AT 21,83;"MNOONS" 


i 
188 
112 
126 
138 
135 
136 
148 
15@ 
16 

14) 
172 
171 
173 
182 
382 
INK 
318 
TINK 
328 

1088 

1818 

1015 

1828 

1@25 

1038 

1846 

1858 

18051 

1852 

1062 

1872 

1@75 

1886 

1582 

13505 

1518 

152@ 

1538 
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PRINT AT 17,153 PAPER 13 INK 7j3"a" 
LET m$="a" 

LET xm=15: LET ym=17 

LET s$="b" 

LET n$="c" 

LET d$="d" 

LET eg="f" 


LET r=INT CRNDX3) 
IF r=@ THEN LET xd=INT CRNDX14) 
LET x=INT CRNDX32): LET y=INT CRNDX 


LET 90=90+t1 

IF g0=2@ THEN GO TO 5@8@ 

GO SUB 93a88 

GO TO 148 

IF r=1 THEN PRINT AT y,x3 PAPER 13 
6j3s$ 

IF r=2 THEN PRINT AT »,;x3 PAPER 13 
6 jnF 

IF R=@ THEN GO TO 1580 

LET i=INT CRNDX2@@) 

FOR J=1 TO i 

IF INKEY$=""" THEN GO TO 1878 

IF INKEY$="5" THEN LET m=-1 

IF INKEY$="8" THEN LET m=] 

IF INKEY$="@" THEN GO TO 2888 
PRINT AT ym,xm3; PAPER 13 INK 13 "@" 
LET xm=xmt+tm: LET m=@ 

IF xm<@ THEN LET xm=@ 

IF xm>31 THEN LET xm=3] 

PRINT AT ymyxm3 PAPER 13 INK 73"a" 
NEXT J 

PRINT AT y,;x3 PAPER 13 INK 15"" 
RETURN 

FOR |=@ TO 3] 

PRINT AT xd,l-13 PAPER 13; INK 13"m" 
PRINT AT xd,l3 PAPER 13; INK 73d$ 

IF INKEY$=""" THEN GO TO 1538 

IF INKEY$="5" THEN LET m=-1 
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1548 
1558 
1566 
1570 
1588 
1538 
1535 
1682 
2802 
2004 
20085 
2018 
2820 
2825 
2032 
3888 
3018 
3828 
3188 
3181 
3118 
3128 
3138 
3148 
3158 
S155 
3156 
3162 
3288 
3201 
32108 
3220 
3238 
3242 
3258 
82599 
8296 
3268 
33288 
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IF JINKEY$="8" THEN LET m=] 

IF INKEY$="@6" THEN GO TO 2888 
PRINT AT ym,xm; PAPER 13; INK 13; "a" 
LET xm=xmtm: LET m=@ 

PRINT AT ym,;xm; PAPER 13; INK yee” 
NEXT | 

PRINT AT xd,1{-13; PAPER 13 INK 13"m" 
RETURN 

FOR z=16 TO @ STEP -1 

IF ATTR €z;xmJ>39 THEN GO TO 3888 
PRINT AT z,xm3 PAPER 13; INK 73e$ 
PRINT AT z,»xm; PAPER 13; INK 13"m" 
NEXT z 

IF r=@ THEN GO TO 15998 

GO TO 1835 

IF r=1 THEN GO TO 3192 

IF r=2 THEN GO TO 3288 

IF r=@ THEN GO TO 3382 

PRINT AT z,;xm3; PAPER 13 INK 13"m" 
FOR y=1@ TO sun 

PRINT AT 28,3 INK 23s$% 

PRINT AT 2£@a¥3 INK 23" * 

NEXT y» 

PRINT AT 2@,;sun3; INK 23s$ 

LET sun=sun-] 

LET sc=sct+1@ 

LET su=sutl 

GO TO 148 

PRINT AT z,;xm3; PAPER 13; INK 15 "mm" 
FOR y=1@ TO moon 

PRINT AT 21,»3 INK 2jn$ 

PRINT AT 21,;y3 INK 73" " 

NEXT y 

PRINT AT 21,;moon3; INK 2jn$ 

LET moon=moon-] 

LET sc=set+15 

LET mo=mo+] 

GO TO 148 

PRINT AT z,;xm3 PAPER 13; INK 13°m" 


3301 
3318 
3328 
3332 
3348 
3358 
3355 
3356 
3368 
ro) 21217) 
0812 
3028 
3832 
3842 
5858 
2868 
5878 
3888 
5898 
3180 
5118 
51208 
3138 


FOR y=10 
PRINT AT 
PRINT AT 
NEXT y 
PRINT AT 
LET duck= 
LET sec=se 
LET du=du 
GO TO 148 
CLS 

PRINT TAB 
PRINT TAB 
PRINT TAB 
PRINT TAB 
PRINT TAB 
PRINT "" 
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TO duck 


13,y3 INK 23d$ 
13;y3 INK 73" " 


193,duck3 INK 23d$ 


duck-] 
+25 
+i] 


C18) ;"you 
C18) ;"YOu 
C18) sdu 3" 
C18) 3su 3" 
C10) $mo 3" 


HORRIBLE BEAST" 
HE 

DUCKS" 

SUNS" 

MOONS" 


PRINT "TOTAL SCORE="jsc 


PRINT "" 
PRINT "" 


PRINT "DO YOU WANT ANOTHER GO yn" 


INPUT a$ 
IF ag="y" 
STOP 


THEN GO TO 20 
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Chapter Nine 


Matrix Core 


FACING 


WEST 


Description 


You have been placed in the three-dimensional matrix core of the 
Spectrum’s memory, from which you must attempt to escape. 
The memory map, controlled by the computer, is available for 
inspection on only three occasions, so choose your times wisely. 
During the game, you are given a three-dimensional view of 
the matrix core in front of you, with passages leading off to the 
left and right clearly shown. The central processing unit will try to 
confuse you in your bid to escape by making the exit appear as a 
dead-end until you actually pass through it, at which time the 
matrix core will explode into a myriad of colours and sounds. 


——_—» <4 
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Program 


This program will just fit into the 16K machine, with only a few 
bytes to spare. It is clear and easy to enter, since it employs 
high-resolution graphics rather than the user-defined graphics 
found in the other programs. 


Instructions 


When the command ‘RUN’ is given, the computer will request 
you to enter the level of difficulty that you require for the con- 
struction of the matrix core on a scale of 1-10 (1 = easy, 10 = 
difficult). After you have entered this, the matrix core will be 
constructed visually on the screen, after which you will be placed 
somewhere inside and the fun will begin! 


Controls 


The 7-key moves you one step forward. The 5-key rotates you 90 
degrees anticlockwise. The 8-key rotates you 90 degrees clock- 
wise. The M-key prints the memory map on the screen. 


Note 


When the memory map has been displayed on the screen, 
depressing any key will return to the three-dimensional view of 
the matrix core. 


1 RESTORE 1: FOR n=@ TO 18: READ m: P 
OKE USR "“a"+n,;m: NEXT n: DATA 33,8,;,88,6, 
245 143825 S24 l3x S55 1945955 1275 Se 184; 93; 12 
7,281 
5 LET MAP=3: PAPER 1: INK 2: BORDER 1] 
: CLS : DIM M$C784): LET WALL=@ 
6 INPUT "Difficulty level (1-18) "3d: 
LET d=d/12 

1@ LET l=26: LET c=16: LET ld=-1: LET 
cd=9 

2@ PRINT AT [3c 3 "Ml" 

25 LET m$C(x*32+ce+1)="8" 
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3@ LET l=l+ld: LET c=cted 

45 IF RND>d THEN GO TO 128 

5@ IF INT €172)<>172 OR INT (€c¢72)<>e72 
THEN GO TO 128 

66 LET r=INT CRNDX4) 

7@ LET LD=CR=2)-CR=3): LET CD=CR=@)-CR 
=1) 

886 BEEP .@1,RNDX*5@ 

126 IF [=@ THEN GO TO 168 

136 IF L+LD>2@ THEN LET LD=-LD 

148 IF C+CD<1 OR C+CD>3@ THEN LET CD=- 
ae) 

15@ GO TO 2a 

168 LET E=C 
10808 RESTORE 1808: DIM DC6): FOR N=1 TO 
6: READ DCN): NEXT N: DATA 22,19,;17,15,;1 
3,12 
18106 RESTORE 18028: DIM pC(6): DIN cl4,6,2 
J: FOR m=1 TO 4: FOR n=1 TO 6: READ c(m, 
ny lJ): READ c€m,;n;2): NEXT n: NEXT m 
1828 DATA @,8,22,22,41,41,58,58,73,73,86 
» 86 
1038 DATA @,174,22, 152,41,133,58,116,73, 
101,86,88 
1848 DATA 174,174,152,152;,;133,133,116,11 
6,181,181,88,88 
1@5@ DATA 174,8,152;22,133,41,116,58,181 
173, 88, 86 
1@6@ LET l=2@: LET c=16: LET ld=-1: LET 
cd=@ 
26008 FOR N=1 TO 6 
2018 LET A=lX32+c+1+C32XNXLDJ+CNXCD) 
2026 IF CL+N>2@ AND LD=1) OR CL-N<1 AND 
LD=-1) OR CC-1<1 AND CD=-1) OR CC+1>31 A 
ND CD=1) THEN GO TO 283a 
2621 IF CD=1 AND LD=@ THEN LET PCNJ=(M$ 
CA-32) =" )+2*(MN$CA+323='W" J+4XCMNSCAJ=" 
"3 
2822 IF CD=-1 AND LD=@ THEN LET PCNJ=C€M 


Matrix Core 


$(At32)="ME" )+2k(M$CA-32)="M" )+4XKC(MS$CAJ=" 
"3 

2023 IF CD=@ AND LD=1 THEN LET PCNJ=C(M$ 
CA+1)]="M" J+2k(M$CA-1)="H"J+4xK(MNSCAJ=" "3 
2024 IF CD=@ AND LD=-1 THEN LET PCNJ=C(M 
$(A-1)="M" )+2KC(M$CAt+1J="M"J+4K(MSCAJ=" 
} 

2025 IF PCNJ>4 THEN LET P(NJ=4: GO TO 2 
238 

2826 NEXT N 

2038 GO SUB 3aaa 

2848 IF C=E AND L=1 AND LD=-1 THEN GO T 
0 32808 

2845 PRINT AT 9,23;"FACING"3AT 11,233C"N 
ORTH" AND LD=-1 AND CD=@)+C"SOUTH" AND L 
D=1 AND CD=@)+C"EAST " AND LD=@ AND CD=1 
J+C"WEST " AND LD=@ AND CD=-1) 

2059 PRINT AT 15,233" *"jAT 16,23)" 7" 
SAT 17,233"<5 8>"5AT 19,233" M=MAP" 

2868 PAUSE @: LET Z2$=INKEY$ 

2061 IF 2$="m" AND MAP>@ THEN BEEP .2,6 
@: CLS : LET MAP=MAP-1: PRINT M$: PRINT 
AT L,;C3 FLASH 13 PAPER 23"+"3; INUERSE 13 
AT @,e3;"E": PAUSE @: CLS : GO TO 2880 
2862 BEEP .@2,RNDxX32 

2065 IF 2$="2" AND PC1J=4 THEN PRINT AT 
8,233; FLASH 1; INK 2; PAPER 63;"DEAD END 
Q": BEEP .2,1@: PAUSE 1@@: PRINT AT @,23 
" ":; GO TO 2860 

2070 IF 2$="2" THEN LET L=L+LO0: LET C=C 
+CD: LET PC1)=P(2): LET P(2)=P(3): LET P 
C3)=P(4): LET PC4)=P(5): LET PC(S)=P(6): 
FOR N=6 TO 6: GO TO 2018 

2888 IF z$="5" AND ld=-1 AND cd=@ THEN 
LET ld=@: LET cd=-1: GO TO 2082 

2098 IF z$="5" AND ld=1 AND cd=@ THEN L 
ET |[d=@: LET cd=1: GO TO 2008 

2188 IF z$="5" AND ld=@ AND cd=-1 THEN 
LET ld=1: LET cd=@: GO TO 2008 
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2110 IF z$="5" AND 


ET td=-1: LET ed=@: 


2120 IF z$="8" AND 


LET ltd=@: LET cd=1: 


2130 IF z$="8" AND 


ET td=@: LET cd=-1: 


2140 IF z$="8" AND 


td=@ AND cd=1 THEN L 


GO TO 2808 

td=-1 AND cd=@ THEN 
GO TO 2080 

td=1 AND cd=@ THEN L 
GO TO 2888 


td=@ AND cd=1 THEN L 


ET ld=1: LET cd=@: GO TO 2888 

215@ IF z$="8" AND lLd=@ AND cd=-1 THEN 
LET ld=-1: LET cd=@: GO TO 2800 

216@ GO TO 2860 

308@ CLS =: PRINT AT 18,83;"CONGRATULAT ION 
S8": FOR n=1 TO 388: BORDER RNDX?: BEEP 
~@82,;n75: LET L=USR USR "a": NEXT n 

382@ CLS : BORDER 1 

3638 DIM a$C€1): INPUT "Another game ?"3 
LINE a$: IF a¢="y" THEN RUN 

3640 IF a$="n" THEN STOP 

3858 GO TO 3032 

9806 CLS : PLOT 8,98: DRAW 8,174: DRAW 17 
4,0: DRAW @,-174: DRAW -174,90: FOR n=1 T 
Q 5 

3618 FOR m=1 TO 4 

9815 IF p€nJ=4 THEN LET wall=n: GO TO 9 
862 

96206 PLOT c(€m,n;13;cC€m;n;2) 

3640 IF (m<3 AND CpCn)=@ OR pln)=2)) OR 
(m>2 AND CpCnJ=@ OR p(nJ=1)) THEN DRAW 
eC(m, ntl, 1J-eCmsna,1),6eCmsntl,2)-e€msns 2) 
3845 NEXT m 

9858 NEXT n 

93868 FOR n=1 TO 6 

3065 IF wall=n THEN GO TO 9118 

9866 IF N=6 THEN GO TO 93890 

39078 IF p(nJ=1 OR pC€nJ=3 THEN PLOT c(2, 
N,1),c¢0(2,;n,;2): DRAW @,cC13n;23-c(2,n;,2): 
PLOT c€2,nt+1,13-DCN),c(2,n+1,2): ORAW D 
(NI,@: DRAW @,cC1,n+1,2)-cl2,n+1,;2): DRA 
W -DCNI,@2 


Matrix Core 


93088 IF p€nJ=2 OR p(njJ=3 THEN PLOT cC3, 

n,1),;¢03;n,2): DRAW @,¢c04,n;2)-cC3;n,2): 
PLOT cl3;nt1,1)+DCNJ,cl4;nt+1,2): DRAW - 

DCONJ,@: DRAW @,cC3,;nt1,2)-cl4,nt+1,2): DR 

AW DCNJ;G 

9898 NEXT n 

9188 RETURN 

911@ LET n=wall: LET wall=@: PLOT c(1,n, 
l2sé¢ClsfisZl: DRAW @,€C25fi52)-e6lamsZ2)? G 

RAW cl3;n;1)-c€2,;n,1),8: DRAW @,c04,n,;,2) 
-¢€3,;n,;2): DRAW cCl,n;,1)3-c04,n,13,;8: RET 

URN 
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Chapter Ten 


City Bomber 


H.Score = @ 5 Missiles 
A 


Description 


You are the pilot of the experimental X-82 medium-range bomber 
and your mission is to attack the alien stronghold cities of 
Gillopalus and raze them to the ground. Your new plane is armed 
with an unlimited supply of bombs, plus five medium-range 
forward-firing missiles. 

The major drawbacks of this new experimental aircraft are its 
low firing speed, with only one bomb or missile capable of being 
released at any one time, and the fact that it can carry only a 
limited supply of fuel and must therefore land after destroying 
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each city, before progressing to the next and more difficult target. 

As the battle continues, a roll of honour is maintained, with 
the highest damage figure recorded by the computer. Remember, 
the harder the target, the more points you can score! Good luck 
and bombs away! 


Program 


This program will just fit into the 16K machine, with only a few 
bytes to spare. As before, there are some user-defined graphics, 
clearly marked in the program listing, which must be entered 
with great care. 


Instructions 


When the command ‘RUN’ is given, the computer will request 
you to enter the level of difficulty you require on a scale of 1-10 (1 
= difficult, 10 = easy), which will determine the height of the 
individual buildings in the target city, and the space between the 
buildings on a scale of 0-3, which will govern the building 
density. 


Controls 


The B-key is used to drop a bomb. The M-key is used to fire a 
missile. 


Note 


Do not hold the M-key down as this will simply waste the 
missiles. 


1 DATA @,80,9,16,16,56,68,146,0,0,56,1 
6, 16,56, 124, 254 

2 DATA 132,96, 34,138, 206, 158, 238,178, 
44,56, 16,56,68,68,48, 16 

3 DATA @,8,16,72,63,72,16,0,8,112,128 
3127,127,32,64,0,0,9, 248, 154, 254, 250, 88, 
136 
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4 DATA 28,93,42,28,8,8, 28, 34, 28; 28,8, 
28,42, 73,20,34: LET hs=@ 
5 GO SUB 3888 
8 BORDER 1: PAPER 7: INK @: CLS 
9 LET b=S: LET se=@ 
25 INPUT “Difficulty C1I-14)"3k: IF kl 
OR k>1@8 THEN GO TO 25 
26 INPUT “Spaces between buildings (@- 
3)"3r: LET r=rtl: IF r<]1 OR +r>4 THEN GO 
TO 26 
27 LET k=k+2: BRIGHT 1 
38 FOR f=4 TO 28 STEP r 
4@ LET lt=RNDX1@+k: FOR g=21 TO | STEP 
-1: PRINT AT 9,f43"a"? NEXT 92 PRINT AT 9 
»f3CHRS C€145+RNDX1) 
38 NEXT f 
S1 FOR x=@ TO 31: PRINT AT 21;x3; INK 2 
3": NEXT x 
52 BRIGHT @ 
55 LET y=1 
5? INK @: PRINT AT @,8; BRIGHT @3"Scor 
@=" foe 3AT OG, 225b3" Missiles "SAT @,105'"H 
»Score="jhs 
58 INK 1: POKE 22562,56 
6@ FOR x=8 TO 30 
64 PRINT AT y;x3"gh": IF y=2@ AND x=3@8 
THEN GO TO 258 
66 LET [$=INKEY$: IF l$<>"" THEN GO T 
0 588 
67 GO SUB 1888 
7@ PRINT AT y3x;" * 
8@ NEXT x 
BS PRINT AT y,x3" * 
398 LET y=y+t1]: GO TO 68 
386 IF it$="b" THEN GO TO 688 
518 IF 1$="m" THEN GO TO 528 
515 GO TO 72 
528 LET b=b-1: IF b<=-1 THEN LET b=@: 


i i 


y 
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GO TO 67 

522 PRINT AT @,223b3" Missiles" 

523 FOR m=x+2 TO xt8 

525 IF m>=31 THEN GO TO 72 

526 LET J=ATTR Cy,m): IF §<>56 THEN PR 


INT AT y,m3" "2: GO TO 78 
527 PRINT AT y,m3; INK 13"£": BEEP .@5,5 
* PRINT AT ysm3" "2 NEXT m 


548 GO TO 64 

600 LET e=x: LET f=ytl 

618 IF ATTR Cf,e)<>56 THEN GO TO 788 
628 GO SUB 2808 

63@ IF f=21 THEN GO TO 7@ 

64@ GO TO 618 

780 FOR 9=1 TO 6 

71@ GO SUB 2800 

711 IF f=21 THEN GO TO 7@ 

712 LET sce=setl: PRINT AT @,223;b3" Miss 
iles" 

714 PRINT AT @,8;"Score="jsc 

215 NEXT 9 fi 
716 PRINT AT f-1,e3; BRIGHT 13; INK 23"d" 
728 GO TO 72 

1@0@ LET L=ATTR Cy;xt2): IF t=56 OR 1=5?7 
OR 1=58 THEN RETURN 

1910 RESTORE 73: FOR f=1 TO 11: READ a,b 
: BEEP a,b: NEXT f: DATA .35;-1,.3,-1;.1 
cn ha Se] s Ae tes doa ly 239135 1359-13 .259- 
ly wd Ss —-2, , 295 —] 

1011 FOR f=1 TO 3: FOR 9=@ TO 7: INK 9: 
PRINT AT y,xj"gh": BEEP .3-Cf710),-9-18: 
NEXT 9: NEXT f 

192@ INK 6: PAPER @: CLS : PRINT “You Sec 
ored "“3$sc3;" points.": IF se>hs THEN GO 
TO 48280 

1838 PRINT 2??? "press a key to continue,” 
: PAUSE @: GO TO 8 

2888 PRINT AT ysx3" "2 LET x=xt1:? PRINT 
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AT ysx3"gh": IF x=3]1 THEN PRINT AT y;x;3 
" "3 LET x=@: LET y=ytl 

2082 GO SUB 198a 

2@@5 IF f=21 THEN RETURN 

2018 PRINT AT f;e3"e": BEEP .@2,1: PRINT 
AT f,e3 INK @3" “2: LET f= ft1 

2838 RETURN 

2508 PRINT AT 28,3@;" “: PRINT AT 20,8; 
“oh! 

251@ FOR f=1 TO 15@: PRINT AT 280,43"i";A 

T 20,43"y": NEXT f? BORDER 1 

2526 FOR f=1 TO 2: BEEP .2;,;1: BEEP .1,1: 
BEEP ,15,;15 BEEP .255;5: BEEP «151% BEEP 
24,5: PAUSE 25: NEXT f 

2538 CLS =: PRINT AT @,13 FLASH 13 INK 63 
PAPER G@3°R Ut le Britannia a 


2548 LET y=21: FOR f=@ TO 38: BORDER RND 
*6: LET y=y-2173@: PRINT AT y,f3"9h"?: BE 
EP (31-f)738@,-1@: PRINT AT y,f3" "=: NE 
XT £: PRINT AT »,f3" " 

2541 FOR f=@ TO 3@: PRINT AT @,f3"g9h": B 
EEP ,@5,10: PRINT AT @,f3" “+: NEXT f 
2545 INK @: PAPER 7? 

2558 CLS ° 

2555 LET k=k-1: IF k=@ THEN LET k=1 
2556 LET b=5 

2568 BRIGHT 1: GO TO 38 VA 
3006 FOR f=@ TO 7 STEP 2: POKE USR "“a'+f 
9255: POKE USR “a"+f+1,170: NEXT f 

3802 FOR f=@ TO 71: READ a: POKE USR "b" 
+f,a:2 NEXT f 

3005 LET oS=" (as * 

3086 LET b$="CITY BOMBER" 

3803 BORDER 1: INK 6: PAPER @: CLS 

3818 FOR {=9 TO 11: PRINT AT {,1@3a$: NE 
xT f 

3820 FOR s=@ TO 15: PRINT AT s,@;"gh" 
3825 IF s=3 OR s=11] THEN BEEP ,5,5: FOR 


tt = a ee 


' 


City Bomber fs yi 
f=Z2 TO S12 PRINT AT sg tz" Ff" BEEP .@255 
> PRINT AT s,f3" “? NEXT ¢ 


3630 JF s=1@ THEN BEEP «5,10: FOR f=2 T 

O 30: PRINT AT s,f3"£": IF £210 AND £<22 
THEN PRINT AT 18, f 3b$Cf-10) 

3835 IF s=1@ THEN BEEP .@2,1@: NEXT f{ 

3845 PRINT AT s,@3;" * 

3068 NEXT s 

3870 FOR 9=1 TO 8: FOR f=@ TO 7: PRINT A 

7 (3,455 INK £3"gh™? BEEP .@2,12 NEXT t2 


NEXT 9 
3838 PRINT AT 21,53;"Press a key to conti 
nue,”": IF INKEY$<>"" THEN GO TO 3893: P 


AUSE 5@: BORDER RNDX?: GO TO 38390 
3891 PAUSE S@: BORDER RNDX7: GO TO 3098 


3895 CLS 

318@ PRINT "To win;you must try to dest 
Toy" 

3118 PRINT ’?“the randomly built city so 
that" 

3120 PRINT ?"you can tand and refuel sat 
ely," 

3130 PRINT ’??’"When you press a key the m 
achine" 

314@ PRINT ?"will ask you what skill lev 
el": PRINT ?"“you require (1 is the Harde 
et), " 

3158 PRINT ’?"“Then enter the amount of sp 
aces" 

316@ PRINT ?"“you want between the buildi 
ngs," 


3161 INK 4: PRINT ?"Use the ’b? key to d 
rop a bomb,": PRINT “use the ’?m’? key to 
fire missiles": PRINT "N.B Do NOT hold t 
ne ?m? key down" 

3165 PRINT AT 21,;123;"Good Luck" 

31708 IF INKEY$<>"" THEN GO TO 3175 

3171 PAUSE 5@: BORDER RNDX?7: GO TO 3178 
3188 RETURN 
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4880 FOR 9=1 TO 3: FOR f=-5 TO 5: BEEP . 
Q@5,': NEXT f: FOR f=S TO -S STEP -1: BEE 
P ,@5,f: NEXT £2 NEXT 9 

4010 PRINT ’?"“The High Score 2 2 9": LET 
hs=se: GO TO 1832 


Chapter Eleven 


Race and Chase 


Description 


Hold tight and fasten your safety belt, for you are about to play 
‘Race and Chase’, and you are the one being pursued by the 
relentless computer-controlled vehicle! 

The object of the game is to survive for as long as possible 
without being caught by the computer. As the game is being 
played, you will score points for eating the green power stars 
found in the maze. There is no upper limit for the score, since the 
pursuit vehicle continues to drop these stars as it chases you. 


Program 


This program will easily fit into the 16K machine. It contains only 
a few user-defined graphics, which are clearly marked in the 
usual manner. 


Instructions 


When the command ‘RUN’ is given, the maze will be constructed 
visually on the screen and the game will commence with both 
vehicles converging along the outer passage. You are then given 
limited control over the motion of your vehicle, in that you are 
able to switch lanes at the intersections by using the following 
controls. 


Controls 


The I-key moves your vehicle towards the centre. The O-key 
moves your vehicle away from the centre. 
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5 GO SUB 93888 

1@ CLS 

11 LET sc=@ 

12 LET hsc=@ 

115i CLS 

2@ LET x=16: LET y=1@ 
38 FOR r=2 TO 18 STEP 2 


48 FOR !=x-r TO xtr 

5@ PRINT AT y-r;,i3 INK 23;"m": 
ytr,i3 INK 23"m" 

6@ NEXT i 

7@ NEXT + 


88 FOR r=2 TO 18 STEP 2 
98 FOR J=y-r TO ytr 
1@8 PRINT AT Jsx-r3 
Jsxtr3; INK 2;"m" 

118 NEXT 3 

12@ NEXT r 

14@ FOR i=x-1@ TO x+1@ STEP 2 
15@ PRINT AT y;,i5" " 

16@ NEXT i 

17@ FOR j=y-18 TO yt+1@ STEP 2 


18@ PRINT AT Jjsx3" " 

19@ NEXT J 

2880 PRINT AT »;x3 INK @;"@" 
218 FOR r=1 TO 9 STEP 2 

226 FOR i=x-r TO xtr 

238 PRINT AT y-r5i3 INK 55"X": 
ytr,;i3 INK 53"x" 

24@ NEXT i 

25@ NEXT r 

266 FOR r=! TO 9 STEP 2 


278 FOR j=y-r TO ytr 
280 PRINT AT J;sx-r3 
J>xtr3 INK 55°" 


238 NEXT J 
3808 NEXT r 
318 LET r1=9: LET x1l=7: LET yl=1 

311 LET r2=9: LET x2=25: LET y2=19 


INK 23m": 


INK 53"": 


PRINT AT 


PRINT AT 


PRINT AT 


PRINT AT 


PRINT AT y1l;x13 


LET xx2=@: 
GO SUB 1882 
GO SUB 2800 
GO TN 348 
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LET 


INK ] Pe Gad 
LET yy1=@: LET xxl=1 


yy2=-1 


IF xl=xt+rl AND yl=y-rl 


IF xl=xtrl 


> LET yy1l=@: 


IF xl=x-rl 


> LET xxl=@: 


IF xl=x-rl 


LET xl=xl+x 


PRINT AT y1l;x13 


AND 
GO 
AND 
GO 
AND 


x1: 


> LET xxl=@: GO TO 1850 


yl=ytrl 
TO 1854 
yl=ytrl 
TO 1858 
yl=y-rl 


> LET yy1=@: GO TO 1852 


PRINT AT y1;x1l3 INK 53' 


THEN 


THEN 


THEN 


THEN 


5 a 


LET yy 


LET xx 


LET yy 


LET xx 


LET yl=yityyl 


INK 13' 


hal 


IF x1<>x AND y1<>y THEN RETURN 


LET x2=x2+x 


x2: 


LET rin=INT CRNDX93) 

LET rin=rintl 

IF rin7z2=INT Crin’2) THEN 

PRINT AT y1;x13 INK 535°" 

IF xl=x AND yl<y THEN LET 

IF yl=y» AND x1<x THEN LET 

IF yl=y» AND xl>x THEN LET 

IF xl=x AND y1l>» THEN LET 

LET rl=rin 

LET ri=rin 

RETURN 

IF x2=xt+tr2 AND y2=y-r2 THEN 
: LET xx2=-1: GO TO 2854 

IF x2=x+r2 AND y2=ytr2 THEN 
: LET yy2=-1: GO TO 2852 

IF x2=x-r2 AND y2=ytr2 THEN 
> LET yy2=@: GO TO 2858 

IF x2=x-r2 AND y2=y-1r2 THEN 
: LET yy2=1: GO TO 2856 

PRINT AT »2,x23; INK 73" “ 


RE TURN 


yl=y-rin 
xl=x-rin 
xl=xtrin 
yl=ytrin 


LET yy 


LET xx 


LET xx 


LET xx 


LET y2=y2tyy2 


61 


62 
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2065 IF ATTR Cy2,x2)=61 THEN LET sc=sct 
1 

2066 IF ATTR Cy2,;x2)=57 THEN GO TO 3808 
2078 PRINT AT y2,;x23; INK 135"b" 

2086 IF x2<>x AND y20y THEN RETURN 
26398 IF INKEY$="" THEN RETURN 

2108 IF INKEY$="o" THEN LET rg=1 

2118 IF INKEY$="i" THEN LET rg=-1 

2111 IF INKEY$="0" AND r2=93 THEN LET r9 
=@: RETURN 

2112 IF INKEY$="i'" AND r2=1 THEN LET rg 
=@: RETURN 

2115 PRINT AT y2,;x23; INK 73" " 

212@ IF x2=x AND y2<y THEN LET y2=y2-(€2 
XrgJ 

2125 IF x2=x AND y2>y THEN LET y2=y2t+C2 
Xrg9) 

213@ IF y2=y AND x2>x% THEN LET x2=x2+(2 
xrgJ 

2135 IF y2=y AND x2<x THEN LET x2=x2-(€2 
XrgJ 

2140 LET r2=r2+(€2xr9) 

2158 RETURN 

3888 CLS 

3818 FOR j=1 TO 28 

3828 PAPER CINT CRNDX?)) 

3830 NEXT J 

384@ PAPER 7? 

3858 PRINT = PRINT : PRINT = PRINT 

3051 IF sce<hse THEN GO TO 3857 

3854 FLASH 1 

3855 PRINT “WELL DONE NEW HIGH SCORE" 
3856 FLASH 2 

3657 PRINT = PRINT =: PRINT 

3068 PRINT TAB (€16);"YOUR SCORE ="j3sc 
3878 PRINT 

3888 IF sc>hse THEN LET hsc=sc 

3838 PRINT TAB (18)3;"HIGH SCORE="j;hsce 
3168 PRINT 
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311@ PRINT 
312@ INPUT “ANOTHER GAME y/n “jas 
313@ IF a$="n" THEN STOP 
314@ LET sc=@ 
3158 GO TO 15 
9@0@ FOR x=1 TO 2: READ x$: FOR n=USR x$ 
TO USR x$+?: READ a: POKE n,a: NEXT n 
9818 NEXT x 
9828 DATA “a",@,BIN @@111100,BIN @111111 
% @,BIN @10010019,BIN @1111118,BIN 8110011 
Q,BIN @@111188,2 
9832 DATA "b",8,BIN @8818@@8,BIN 8111118 
Q,BIN @8018800,BIN 9@819888,BIN 80181900 
,BIN 81880180,8 
9188 RETURN 
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Chapter Twelve 


Surround 


Description 


In this game of skill, logic and quick reflexes, you are about to 
accept the ultimate challenge: can you surround and thus destroy 
the computer? You will probably have the edge in skill, but the 
computer will undoubtedly have the faster reactions. Your only 
chance of survival, therefore, is to think logically and outwit the 
machine. 

The playing area is a large rectangular space, surrounded by a 
solid wall, and as you both move you leave a trail of solid objects 
behind you that are-quite impenetrable to both players. The 
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object of the game is to surround your opponent, so that he is 
unable to make a move. If you are the first to achieve this, then 
you are awarded one point. The first player to reach five points is 
deemed to be the winner. Good luck! 


Program 


This is a short program, which contains no defined graphics and 
should therefore be quick and easy to enter. 


Instructions 


When the command ‘RUN’ is given, the playing area will be set 
up and both players, yourself represented by red and the com- 
puter by green, will start converging towards the centre. You may 
then use the controls in order to attempt to surround the 
computer. 


Controls 


The 5-key moves you to the left. The 6-key moves you down. The 
7-key moves you up. The 8-key moves you to the right. 


Note 


The red and green identifying squares continue to move all the 
time and it is not possible to stop them. 


1 LET qq=0 
2 GO SUB 4880 
3 LET sl=@: LET s2=@ 
1@ CLS 
11 DIM al4) 
12 LET xx2=-1: LET yy y2=0 
13 LET qq=@ 
15 LET XX1=@: LET YY1=6 
16 IF s1=5 THEN GO TO 3888 
17 IF s2=5 THEN GO TO 3180 
20 FOR i=@ TO 31 
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38 PRINT AT @,i3; INK 13" 
35 PRINT AT 2@8,i3; INK 13" 
36 PRINT AT 21,i3; INK 13°F 
4@ NEXT i 
5@ FOR j=@ TO 21 
6@ PRINT AT 5,8; INK 13" 
7@ PRINT AT J,;313 INK 13° 
B@ NEXT J 
3@ LET Y1=19: LET X1=3 
35 LET x2=27: LET »2=18 
1@@ PRINT AT Y1,X%13 INK 23"mFF 
1@5 PRINT AT y2,;x23; INK 435° 
118 IF qq=1 THEN GO TO 18 
111 PRINT AT 21,3381 
112 PRINT AT 21;273s2 
12@ LET A$S=INKEY$ 
| 138 IF A$="5" THEN LET XX1l=-1: LET YY] 
=Q 
1490 IF A$="6" THEN LET XX1=@: LET YY1= 
1 
150 IF A$="?" THEN LET XX1=@: LET YY1l= 
=] 
| 160 IF AS="8" THEN LET XX1=1: LET YY1= 
4) 
| 17@ GO SUB 1980 
188 GO SUB 2888 
286 GO TO 114 
1980 LET X1=X1+XX1: LET Y1=Y1+YY1 
1885 IF XX1=@ AND YY1=@ THEN GO TO 1838 
10108 IF ATTR CY1,;X1)>S6 THEN LET s2=s2+ 
1: LET qq=1: GO TO 1834 
1820 PRINT AT Y1;X%13; INK 23"mr 
1938 RETURN 
2018 FOR i=1 TO 4: LET aCiJ=@: NEXT i 
2015 IF RND<.1 THEN GO TO 2838 
2026 IF ATTR Cy2tyy2,x2t+xx2)<S7 THEN GO 
TO 2288 
2038 LET r=RND 
2046 IF r<.25 THEN LET xx2=1: LET yy2=8 
> LET aCljJ=1: GO TO 2080 
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2058 IF r<.S THEN LET xx2=-1: LET yy2=8 
> LET al2)=1: GO TO 2082 

2068 IF r<.725 THEN LET xx2=@: LET yy2=1 
> LET aC3)J=1: GO TO 2889 

2070 IF r<2 THEN LET xx2=@: LET yy2=-1: 
LET al4)=1: GO TO 2082 

2686 IF ATTR Cy2tyy2,x2t+xx2)<S7? THEN GO 
-TO 2280 

2090 IF aC1J=1 AND aC2)=1 AND al3)=1 AND 
aC4J=1 THEN LET sl=slt+l: LET qq=1: GO 
TO 2488 

2188 GO TO 2838 

2200 LET x2=x2+xx2: LET y2=y2tyy2 

23828 PRINT AT y2,;x23 INK 45 "Mm" 

248@ RETURN 

3888 CLS 

3810 PRINT “WELL DONE YOU WIN” 

3820 PRINT "TYPE ?Y? FOR ANOTHER GAME" 

3038 INPUT a$ 

3848 IF ag="y»" THEN GO TO 1 

3@5@ STOP 

310@ CLS 

3118 PRINT “HARD LUCK I WIN" 

3128 GO TO 3820 

4008 FOR m=1 TO 6 

4001 FOR k=1 TO 6 

4@1@8 PAPER k 

949015 CLS 

4820 NEXT k 

4030 NEXT m 

4840 PRINT AT 18,183 INK 23;"SURROUND" 

4058 FOR k=1 TO 2@@: NEXT k 

4@60 FOR m=@ TO 31 

4070 PRINT AT 18,m3 INK 2;"@" 

4875 PAUSE 18 

4888 NEXT m 

4898 PAUSE 28 

4091 PAPER 7 

4895 CLS 

4188 RETURN 
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Chapter Thirteen 


Fruit Machine 


18 Credits 


You have 9 Nudges 


Description 


This is a true simulation of the typical fruit machine found in 
arcades and public houses throughout the country. It incor- 
porates all the principal features that you would expect to find, 
including Hold, Nudge and Gamble, the only difference being 
that you can play this ‘fruit machine’ for hours and hours and 
hours, without losing a single penny! 

The game is designed to be fun to play on your own, as well as 
with others. It comes in three separate programs, which must be 


Fruit Machine 69 


used together, since the first contains the full set of graphics, the 
second, the full set of instructions, together with a demonstration 
of how not to lose your money, and the third, the actual game 
itself. 


Program 


The game is very long and involves several graphics techniques 
and memory-saving routines to enable it to be used on the 16K 
machine. It is divided into three distinct programs, which pass 
information from one to another in the form of a chain. All three 
programs must be entered before the game can be played. 


Fruit Machine 1 


This is the first program and contains the code required to 
redefine the whole of the character set normally used in the 
Spectrum. It should be typed in very carefully, checked and then 
‘RUN’. When this has been done, lines 10-240 should be deleted 
and what is left (i.e. Line 1) should be saved onto tape using the 
name “fruit1”. 


Fruit Machine 2 


The second program contains detailed instructions for playing 
the game. It should be typed in very carefully, with special 
attention being paid to the graphics symbols and the spaces in 
the more complex lines, which are clearly marked in the program 
listing. It should then be saved onto tape using the name ee 

Note: As this program uses a redefined character set in order to 
obtain all the graphics, it should not be run at this stage without 
looking at the instructions below. 


Fruit Machine 3 


When the first two programs have been entered and saved onto 
tape, you can turn yourattention to the third and final part, which 
should be typed in and saved under the name “fruit3”". Again, do 
not try to run this program on its own, as some rather unusual 
effects would then be seen. 
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Instructions 


First, load “fruitl” into the computer and then type 
MERGE" fruit2” or MERGE“ fruit3”, depending on whether you 
want complete instructions and a demonstration of the Hold, 
Nudge and Gamble features or wish to play the game proper and 
get down to some heavy gambling. 


Controls 


When the gambling commences, the following control keys are 
used to operate the fruit machine. 


The X-key is used for spinning the reels. 

The Y-key is used to hold a reel. 

The N-key is used to not-hold a reel. 

The I-key is used to nudge the left reel down. 

The J-key is used to nudge the middle reel down. 
The K-key is used to nudge the right reel down. 

The (SHIFT)I-key is used to nudge the left reel up. 
The (SHIFT)J-key is used to nudge the middle reel up. 
The (SHIFT)K-key is used to nudge the right reel up. 
The C-key is used to collect a win. 

The G-key is used to gamble a win. 


Note 


There are a number of pauses for you to read the information on 
the screen and you may progress from these by depressing any 
key. 


| REM B88@80800880R0R0880R0RR0RR0RR0RR0R000 
G00UERBBRBRBeRR0RR0RR0BR0RR08R0RR00R0R0RRRRR008 
QGQbebeeBuUGBReR0RBR0R0RRRR0RRRaGR0RRR0RRRRRRa0 
GOBBRbREURRBGRRRR2RR00R0R80R0R0R0R8R0RbR0R0R8 
QBh GABBBBBGRBGRGRB8R08RGRGRG0RRR0RR008RBR0R0 
BEEbRbALEEeBURB0RRgBaRgBgGRgggRRgRRRRR0RR0R0RRR0 
BOBLUBBBBeRRbURGRB0R0BR0GR00R0RR00ReR0RR00R0R0R00 
BOGUREBOOEREURR2GRRbRRR0B8R0R8RR0RRR0R0RRR0R9R0R0 
BOBbOUREEEeaBRBGRRRBR0RgRR0R0R0RcR0RRRRRR0R0R2 
BQO88E8RRRRRGeea0RgeURguRgBuRgRbRRRgRR0RgR0R0RaR 
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2aogeegngogRgRRRRRRRR0RRRRGRRR0RRRRRRRa0R 
geeeeeeRe0eRRGR0R0RRR0RRRRRRRRRRRRRRRG0Ra 
goagugegeRgRgRRRR0RR0RRRR0RRRRR0RRRRRGRR0Ra 
gagevee0R0RRRRR0RRRRRR0RRR0RRRRRRRRRR00RRR 
geegsResRoRRRgR0RRRRR0RRRRRRRRRRRRR0RR0R— 
QaBeseeoRBRGRGR00RRRRRRRRRR8GRRRRRRRR0R— 
gavevggaeegeRgR00RRRR0RRRR0RRRRRR0R0RR00aa 
gooeRge0RR0RRGR9RR8RR0RRRR0R0R2RRR0RRRR0R0 
gavesRe0RRRRRR00RRRR0RRGGRRGRRRRR22RRRR00R 
Qa0gaseesRgeRgeRRBeRRRRRRRRRRRGRRRRRR0R0RR 
gasggasuesgacRgRRRRRGRRGRRRRRRRRRR0RRRR0 
2asogeBGeRRRRR8RRRRRRRRRRRRR0RRRRRRRR0RR0 
BaveeeegoR00RRR00R0R0R0RRR8RRRRRRRRRRRRRRRR 
gavevgeneRgRR0R0RRRR0RRRRR0RRRRRRRRRR0R0RR0 
BauavesgvengaRaReRRR0RRRRRRRRRRRRRRRR00RR 

10 FOR i=@ TO 63 

2@ READ a 

3@ POKE 2376@ti,a 

4@ NEXT i 

5@ FOR i=@ TO 719 

6@ LET a=PEEK (15688+i) 

78 POKE 23824+i,a 

8@ NEXT i 

98 FOR i=@ TO 33 

188 READ a 

118 POKE 24488ti,a 

12@ NEXT i 

13@ FOR i=24528 TO 24696 

148 READ a 

15@ POKE i,a 

16Q NEXT i 

178 STOP 

288 DATA 8,8,8,8,8,8,8,8, 24,68, 182,255, 
255, CA, PA, BSE, 25s By 1207 Fos 1G 2IGs 1 
84,112,224,224, 192, 128,8,3,4,8, 22,48, 4a, 
43,46, 192,32, 16,8,4,116,84, 116, 16,8, 4,3, 
15151,31,8, 16,32, 1925128, 128, 128,248 

218 DATA @,0,8,8,1,15,1,15,8, 68,68, 152, 
@,224,B, 224, 1,153 17,18, 12,9,9,9,0,128,11 
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2,14,;9,8,8,0,68,66,153,161,161,153,66, 64 
3299 

228 DATA 255,86, 255, @, 225, 146, 148, 228, 25 
5,8,255,8,38,145;,;81,93, 151,148, 148, 228,¢ 
3299;4, 255, 244, 82, 81, 81,9, 255,84, 255, 31,3 
9131533757315; 249, 128,0,0,128,192,132, 22 
4,15,15,31,63,127,255,8,0, 224, 224,248, 24 
8 

236 DATA 252, 254, 192,8,9,0,8,31,28,37;7 
4,86,80,80,0,192,48, 280, 38,2,66, 186,66,85, 
36,48; 31,@,258,2,18,228,8,112,128,8,8,8, 
1,7,15;31,63,;63,0, 128, 254, 255, 238, 252, 24 
8,248,63,63,63,31,15,7;3,8; 224, 248; 248 

248 DATA 252, 254,255, 254,8,80,8,1;,2,2;2, 
5,58,8, 128,64, 168, 168, 168, 208, 46,656;58,5 
»2,2,2,1,8,161,46, 208, 160, 168, 168,64, 128 
324,68, 102,255, 255, 127, 124,63, 62 
Fruit 2 

15 POKE 23686,208: POKE 236987,;91 

16 POKE 23675,288: POKE 23676,95 

17 DIM 9$(€5;,;2): LET 9$C1J=CHR$ (€16)+CH 
R$ (6): LET 9$C2)=CHR# (C16)+CHRS (7): LE 
T 9$C3)=CHR$ C16)+CHRS (5): LET 9$04)=CH 
R$ C16)+CHR$ (2): LET 9$(5)=CHRS (€16)+CH 
R$ (4) 

21 BORDER @: INK 6: PAPER @: CLS 

25 LET a=4: LET b=7: LET ec=3: LET w$=" 

26 DIM £$(€8,;6): LET f$ClJ=9$C1)+"mnop" 
> LET f$(2J=9$(2)t+"grst": LET f$(3)=9$(1 
Je" (l}~": LET f$C4)=9$(2)+"abcd": LET f$ 
(SJ=9$Cljttefoh": LET f$(6)=9S(SIt" i kt" 
> LET f$(7)=9S(4)r"ulh "HY: LET f$(8)=9$SC 
1)+"$xe?" 

27 DIM p$C(3,6) 

30 LET a$="12367536543536576358": LET 
¢$="75267375687315476785": LET b$="71824 
816854813487148" 

62 PRINT ???"If you are a regular 1¥p 
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pusher on the machines in the pubs anda 
reades,or just like a good gamble th 
en you have chosen the right piece of so 
fLWAT@.e- 

7Q PRINT ’?"“This machine has all the 

facilities that the real thing has 
,its just that you do not iose any mo 
ney," 

86 IF INKEY$="" THEN GO TO 86 

98 CLS : PRINT "Of course;] cannot hop 
e to simuiate the sensation you get 

when the coins rattle down the money 
box,but at least if you dolose,you do no 
t get that empty pocket feeling," 

35 PRINT ?"1 18p coin is equal to 1"3 
FLASH 13;“Credit"; FLASH O3;",and you star 
t with 2@"3; FLASH 13;"Credits"; FLASH @ 

198 PRINT ?"And Now.....Meet the fruits 


105 FOR f=1 TO 3 

11@ PRINT 9$C€1l)3"ab "JS9SC2I3"mn “j9Sl 
LI3"C{i “S9SC2I5"qr “jsoSClIs"ef "“39S05 
Vs"ig “S9SC4H)5"U2 "“Z9SC3BI 5" SR" 

120 PRINT 9$C€1)3"ced "j9$C2)3;"op "“j9$C 
123"}~ "S9SC2)5"st “SosllIs"gh “j9$C5 
s"kl “SoSC4I5h UH “ZgoSCBIG"RPI" 

13@ NEXT f: POKE 23692, -1 

14@ PRINT FLASH 13;"28 20 18 18 @8 
G4 @4 O04": PAUSE @: PRINT FLASH @;3"E 
ach number shows how much you would win 
if you got all three symbols on the w 
in line...” 

15@ PRINT ’?? "If you get two of a kind o 
n the win line then you win 2"3 FLASH 13 
"CREDITS"; FLASH @ 

16@ PAUSE @: FOR f=1 TO 2@: PRINT =: NEX 
T & 

170 PRINT AT 18,@03;"Indeed,..any win up 
Lo 8 Creditscan be gambled like this :-" 
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171 PRINT ’??"By pressing any key apart 
from" 3 FLASH 13"C"3 FLASH @3"you will ga 
mble,and the idea is to press a button w 
nen you hear the higher note;,or when you 

see the arrow on the higher value," 

172 PRINT AT 26,73 INK 23;"Press c to st 
op" 

186 LET f=2: GO TO 2588 

198 CLS : FOR f=1 JO 3: PRINT “qr_eogqr_ 
—qr": PRINT "st st st": PRINT =: NEX 
T £2? PRINT AT 2,23 °NNN 277" 5AT 5, 25"777 

SNA" 3AT 3,145"27 Ways to win"3AT 4,163 
"1@ Credits" 

288 PRINT AT 3,@3;"I1f you get a star in 
all 3 reelsin any position;you win"; FLA 
SH 13"1@"5 FLASH @3" Credits,if you 

get two stars in the first two reels yo 
u win 2 Credits,” 

221 PRINT ?? "Every so often you will se 
e" 3 FLASH 13"Hold"3; FLASH @;"under the r 
eels,To this you mustreply either"3 FLAS 
H 1l3"y"3 FLASH O3"or"3 FLASH 13"n"3 FLAS 
BO wa ee ee 

218 PAUSE @: CLS : FOR {=18 TO 38: BEEP 

»@2,4: NEXT £: PRINT TAB 83 INK 13"N "3 

INK 23"U "3 INK 33"D "3 INK 43"G “3 INK 

63;"E “3"*That is the sound you will come 

to love,.Lets here it again,": PAUSE @: 

GO TO 32888 
1000 LET w$(4)=a$CaJd: LET w$(S)J=b$(bJ: L 
ET w$(6)=c$(c) 

1810 IF a=2@ THEN LET w$(7)="1": LET w$ 
C1)="5": GO TO 1832 

1626 IF a=1 THEN LET w$(1J="8": LET w$C 
7J="2": GO TO 1838 

1@22 LET w$Clj=a$Ca-1): LET w$(7)=a$latl 
5 

1@3@ IF b=2@ THEN LET w$(8)="7": LET w$ 
(2)="4": GO TO 1858 

1846 IF b=] THEN LET w$(2)="8": LET w$C 
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By="1": GO TO 185@e 

1945 LET w$C23=b$(b-1): LET w$C8)=b$(bt] 
} 

16560 IF c=2@ THEN LET w$(9)="7": LET w$ 
(3)="8": GO TO 118@ 

1066 IF c=1 THEN LET w$(3)="5": LET w$C 

9)="5": GO TO 1188 

1078 LET w$(3)=c$(ce-1): LET w$(S)=c$l(crl 
} 

11862 FOR w=] TO 9: LET p$CwJ=fSCVUAL w$Cu 
JJ: NEXT w: PRINT AT 6,183;p$C13C1 TO 4); 

AT 7,;183p$C1305 TO 633AT 19,183;p$l4)C1 T 

O 4335AT 11,193p$C4)05 TO 6BISAT 14, 183;ps$C 

AICI TO 4)3AT 15,183p$C7I05 TO 6) 

1185 BEEP .85,-18 

111@ PRINT AT 6,163p¢C2)01 TO 4)35AT 7,16 
3P$(2ICS TO BI;SAT 10,163;p$C5I01 TO 4)5AT 
11,16;p$(5)05 TO 6)3AT 14,163p$(8)C1 TO 
4)3AT 15,163p$(8305 TO 6) 

1115 BEEP .@5,@ 

11280 PRINT AT 6,223p$(3)01 TO 4)3AT 7,22 
3P$(3I05 TO GBISAT 10,22;p$(6I01 TO 4)5AT 
11,223;p$(6ICS TO 6I3AT 14,223;p$(39)C1 TO 
4)3AT 15,223;p$C9)05 TO 6) 

1125 BEEP .@5,10 

1126 INK 3: PLOT 188,87: DRAW 20,0: PLOT 
158,87: DRAW 2@,@: INK 6 

1138 RETURN 

2516 IF {>8 THEN FOR f=1 TO f: BEEP ,982 
:1@: LET m=mt+t1l: PRINT AT @,@3mt+13" Credi 

ts,": NEXT £: PAUSE @: GO SUB 93988: RETU 

RN 

2515 PRINT AT 2,63;“Have a Gamble,” 

2526 PRINT AT 3,@; BRIGHT 13 FLASH 13°16 
"? PRINT 2" 882 quae per gq 

2538 LET y=7-Cf74): BEEP .@5;y: PRINT AT 
y;33;"0": LET Lt$=INKEY$ 

25931 IF (t$="" THEN PRINT AT y,33" “: GU 
TO 2548 

2532 IF it$="c" THEN GO JO 1398 
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2535 BEEP .5,-1@: LET f=@: PRINT AT 8313 
FLASH 13;"@8": PRINT AT y,33" " 

2536 IF INKEY$<>"" THEN GO TO 2536 

2537 PRINT AT 21,83; FLASH 13"Bad tuck yo 
u test ,Try again..." 3 FLASH @: GO TO 18 

Q 

254@ BEEP ,@5,fX2: PRINT AT 7-£72,335"": 
LET lt$=INKEY$ 

2556 IF ([$="" THEN PRINT AT 7-£72,33" " 
> GO TO 2530 

2555 IF l¢="c" THEN GO TO 196 

2560 LET f=fx2: IF f=16 THEN GO TO 93688 

2565 PRINT AT 21,83 FLASH 13"Well done y 

ou won,..~lTy again," 3 FLASH @ 

257@ BEEP .5,1@: GO TO 2532 

30806 CLS : FOR f=198 TO 3@: BEEP .@2,{ {3 N 

EXT £: LET k$="NUDGE": FOR f=1 TO 5S: PRI 

NT AT 1@8+RNDXS-2.5, §XS3k$CfJ: BEEP .1,RN 

DX3@: NEXT f 

3018 PRINT AT @,183°123456789" 

3815 PRINT AT 28@,1@3;"Press a key"3AT 21, 

43;"to stop the nudge counter” 

3820 LET n=INT CRNDX93+1: PRINT AT 1;,n+9 
3"*"2 BEEP .@1,;n: IF INKEY$<4>"" THEN GO 
TO 3048 

3038 PRINT AT 1,nt933;" ": GO TO 3028 

3042 PRINT ’°?? "Aha;you have “3n3;" Nudges, 
“SAT 19,@8;"Use"3 FLASH 13"5,k;1" 3 FLASH 
93" keys to move reels 1,2,;3 down and 
caps shift" 3 FLASH 13"°J,;K,L"3 FLASH @; 
“to move the reels up... . 

3041 IF INKEY$<>"" THEN GO TO 3241 
38642 IF INKEY$="" THEN GO TO 3042 

3843 CLS : GO SUB 19828 

3850 PRINT AT @,@3;"Press"; FLASH 13"s"3 
FLASH @;"when you get bored." 3AT 18,93*F 
ot Now I will give you an ue BLASH 
13" INFINITE" 3 FLASH @;"number of nudges, 
but I will not let you win anything." 
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30690 LET |$=INKEY$: IF I$="" THEN GO TO 
3868 


3065 IF [$="s" THEN CLS : PRINT "Bye fo 
rT now, Try Loading the realThing,.."*: LOA 
D gear 

3070 LET a=a-Cige"g"I+Cl$="J")? LET b=b- 
CUS="kK"I+ClLS$="K"):2 LET c=e-Cl$="("I+C1$= 


"L"J: IF a=21 THEN LET a=] 
3080 IF a=@ THEN LET a=20 
3681 IF b=@ THEN LET b=28 
3882 IF b=21 THEN LET b=] 
3883 IF c=@ THEN LET c=20 
3884 IF c=21 THEN LET c=l 
3885 GO SUB 1998 
3898 GO TO 3858 
9688 CLS : CIRCLE 128,890,608: CIRCLE 128, 
88,5: CIRCLE 98,110,1@: CIRCLE 160,110,1 
4) 
3618 PLOT 938,58: DRAW 66,98,-.8 
9628 PRINT AT 1,903;"Take 16 Credits off a 
n innocent" 3AT 2,933"Fruit Machine wouid 
YOU sma’ 
974@ PAUSE @: GO TO 198 
FRUITS 
6 RANDOMIZE 

15 POKE 23606,2@8: POKE 23607,91 

16 POKE 23675,2@8: POKE 23676,95 

1? DIM 9$(€5,2): LET 9$(C1)J=CHR$ (€16)+CH 
R$ (6): LET 9$(2)=CHR$ C16)+CHR$ (73: LE 
T 9$(3)=CHR$ (C16)+CHR$ (5): LET 9$(€4)=CH 
R$ C16)+CHR$ (2): LET 9$(5)=CHRS (16)+CH 
R$ (4) 

21 BORDER @: INK 6: PAPER @: CLS 

22 LET o¢$=" 

25 LET w$=" " 

26 DIM £$(€8,6): LET f$C1J=9$C1)+"mnop" 
> LET f$C2J=9$(2)+"qrst": LET §$(3)=9$C1 
Je" Ci }e" 2 LET £$04)=9$(2)+"abcd": LET {$ 
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CSJ=oSClit"efoh": LET f$(6J=9S(5S)+" i gk Ll” 

LET f$C7J=9SC4)+"uUo" "HH": LET f$C8)=9$C 
LI+"$%R7" 

27 DIM p$(3,6) 

38 LET a$="12367536543536576358": LET 
¢ $=" 275267375687315476785": LET b$="71824 
816854813487148" 

31 LET m=2@6: LET 90=@ 

32 LET nu=@ 

48 LET a=INT CRNDX2@)+1: LET b=INT CRN 
DxX2@)+1: LET c=INT CRNDXK2@) +1 

41 LET g0=9g0+1: LET m=m-1: IF m<¢=-1 TH 
EN GO TO 3588 

45 GO SUB 1808: GO SUB 2880 

, 9395 IF RND>.392 AND nu=@ AND f=@ THEN G 
9 TO 3888 

56 IF RND<.25 AND m>@ THEN GO TO 388 

58 LET nu=d 

6@ PAUSE @: CLS : GO TO 48 

98080 FLASH 1: PRINT AT 17,1903;"Hold" 

985 IF INKEY$<>"" THEN GO TO 9385 

318 IF INKEY$="n" THEN BEEP .@5,@: LET 
a=INT CRNDK2@)+1: PRINT AT 17,183” # 
>: GO TO 9317 

311 IF INKEY$="y" THEN GO TO 915 

913 GO TO 918 

315 BEEP .1,1@: PRINT AT 17,1@3;"Held" 
917 IF INKEY$<>"" THEN GO TO 917 

918 PRINT AT 17,163"Hold" 

32@ IF INKEY$="n" THEN BEEP .95,98: LET 
D=INT CRNDX2@)+1: PRINT AT 17,163" 
* GO TO 927 

921 IF INKEY$="y" THEN GO TO 925 

322 GO TO 926 

325 BEEP .1,;18: PRINT AT 17,;163"Held" 
32? IF INKEY$<>"" THEN GO TO 3927 

923 PRINT AT 17,;223"Hold"” 

338 IF INKEY$="n" THEN BEEP .@5,9@: LET 
c=INT CRNDX28)+1: PRINT AT 17,223" 


Fruit Machine 


> GO TO 988 

3935 IF INKEY$="y" THEN GO TO 348 

336 GO TO 9330 

34@ BEEP .1,;18: PRINT AT 17,;223;"Held" 
388 FLASH @: PRINT AT 17,8304 

982 LET m=m-1: LET g0=9o0t]l 

985 GO SUB 1880: GO SUB 2880 

386 IF INKEY$<>"" THEN GO TO 9386 

987 PAUSE @ 

993@ GO TO 55 

1000 LET w$(4)=a$CaJ: LET w$(5)=b$(bJ: L 
ET w$(6J=c$(c) 

1010 IF a=2@ THEN LET w$C7)="1": LET w$ 
(1)="5": GO TO 1838 

1@2@6 IF a=] THEN LET w$C1)J="8": LET ws 
7jJ="2": GO TO 1830 

1Q@22 LET w$Cl)=a$Ca-1): LET w$C7)=a$slatl 
5 
1030 IF b=2@ THEN LET w$C8)="27": LET w$ 
(23="4": GO TO 1858 

1840 IF b=1 THEN LET w$(2)="8": LET w$C 
B)="1": GO TO 185@ 

1045 LET w$(2)=b$(b-1): LET w$C8)=b$Cbt1] 
3 

1@5@ IF c=2@ THEN LET w$C(9)="27": LET ws 
(3)="8": GO TO 1186 

1968 IF c=1 THEN LET w$(3)3="5": LET w$C 
93="5": GO TO 1188 

1078 LET w#(3)J=c$(Cce-1): LET w$CSJ=c$lct] 
) 

11@@ FOR w=] TO 3: LET p$CwJ=fSCVUAL w$Cu 
JJ: NEXT w: PRINT AT 6,1@3p$C1)C1 TO 4); 
AT 7,;183;e¢C13CS TO 6)3AT 10,183;p$Cl4)01 T 
O 4)35AT 11,103;p$C4)C5 TO 6I3AT 14,190;p$C 
2JC1 TO 4)3AT 15,10;p$C7)05 TO 6) 

1195 BEEP .95,-19 

1118 PRINT AT 6,163p$C2301 TO 4)35AT 7,16 
3P$C2IC5 TO GISAT 18,163p$C53C1 TO 4) 3AT 
11,16;p$C5)05 TO 6335AT 14,163;p$(8)01 TO 
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435AT 15,163;p$C8)05 TO 6) 
1115 BEEP ,@5,90 
112@ PRINT AT 6,22;p$C3301 TO 4)5AT 7,22 
3P$(3ICS TO BISAT 18,22;p$(6IC1 TO 4)35AT 
11,22;p$(6)C5 TO 6ISAT 14,223p$(3)C1 TO 
4)5AT 15,223;p$C9)05 TO 6) 
1125 BEEP .@5,1@: INK 3: BRIGHT 1: PLOT 
108,87: DRAW 20,@: PLOT 158,87: DRAW 20, 
@: INK 6: BRIGHT 1 
1127 PRINT AT @,@83m3" Credits.” 
1138 RETURN 
2000 LET {=@: IF w$(4)=w$(5) THEN GO TO 
2188 
2018 IF w$C13<>"2" AND w$C4)4>"2" AND ws 
(73<>"2" THEN RETURN 
2020 IF w$€2)<>"2" AND w$(5)<>"2" AND ws 
(83<>"2" THEN RETURN 
2030 IF w$C3)J="2" OR wS(6J="2" OR wSl3)= 
"2" THEN LET f=18: GO TO 25898 
2045 LET f=2 
2858 GO TO 2508 
2100 IF w$(4)=w$(6) THEN GO TO 2132 
2105 IF w$C€4)="2" THEN IF w$C3)="2" OR 
w$C9)="2" THEN LET f=1@: GO TO 2588 
2118 LET f=2: GO TO 2588 
2130 LET z$=w$(4): IF z$="8" OR z$="7" 0 
R z$="6" THEN LET {=4 
214@ IF z$="5" THEN LET {f=8 
215@ IF z$="3" OR z$="2" THEN LET f=19 


2160 IF z$="1" OR z$="4" THEN FOR i=-198 
TO 2@: BEEP .@2,i: BEEP .@2,-i: NEXT i? 
LET f=22 

2508 PRINT AT 28,93;"Congratuiatins..... 7 


SAT 21,83;"You have won “3f3" Credits. 
251@ IF {>8 THEN FOR f=1 TO {: BEEP .@2 
310: LET m=mt+1: PRINT AT @,@3mt+13" Credi 
ts": NEXT £2: PAUSE @: GO SUB 3988: RETUR 
N 


Fruit Machine 


2515 PRINT AT 2,63"Have a Gambie,“ 

252@ PRINT AT 3,8; BRIGHT 13 FLASH 15"16 
fs PRINT 2 Qeee gee Qe ge” 

2530 LET y=7-Cf74): BEEP .95,y: PRINT AT 
y,3;"O0": LET [$=INKEY$ 

2531 IF i¢="""THEN PRINT AT y,33" “=: GO 
TO 2542 

2532 IF i¢="c" THEN GO TO 2688 

2535 LET nu=1: BEEP .5,-10: LET f=@: PRI 
NT AT 8,1; FLASH 13"9": PRINT AT y,3;3" " 
2536 IF INKEY$<>"" THEN GO TO 2536 

2537 PAUSE @: GO SUB 9988: RETURN 

2540 BEEP .@5,fxX2: PRINT AT 7-£72,33""": 
LET L$=INKEY$ 

2550 IF t$="" THEN PRINT AT 7-172,3;" “ 
: GO TO 2538 

2555 IF i¢="c" THEN GO TO 2688 

256@ LET f=fxk2: IF f=16 THEN GO TO 93680 
2565 PRINT AT 19,@3;"Congratuiatins....." 
SAT 20,;03"You can win "g43" Credits ff"; 

AT 21,933;"you coilect now. n 

257@ BEEP .5,1@: GO TO 2538 

2600 FOR f=1 TO £: PRINT AT @,9jmt+13" Cr 
edits": LET m=mt+1l: BEEP .95,1@: NEXT | 
2605 IF INKEY$<>"* THEN GO TO 2685 

2606 PAUSE @ 

2607 GO SUB 9998 

26190 RETURN 

3008 LET nu=@: CLS =: FOR f=19 TO 3@: BEE 

P ,@2,{: NEXT £3 LET k$="NUDGE": FOR {#1 
TO 5: PRINT AT 10+RNDX5-2,5, fXSjk ECF): 

BEEP .1,;RNDX3@: NEXT f 

3018 PRINT AT @,103"123456789" 

3815 PRINT AT 20,18;"Press a key" 5AT 21; 
4;"to stop the nudge counter" 

3820 LET n=INT CRNDX9)+1: PRINT AT 1;n+9 
s?a0s BEEP ,@l,n> IF INKEYS<¢>"" THEN GO 
TO 3848 

303@ PRINT AT Isnt+93" *: GO TO 3828 
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3804@ PAUSE @: CLS : GO SUB 1902 

38056 PRINT AT 21,;63"You nave "“jn3" Nudge 
Big, 

3068 LET i$=INKEYS$: IF i$¢="" THEN GO TO 


3068 
3876 LET a=a-Cis="G"3+Cl$="J"): LET b=b- 
CiS="kUI+CL$="KED2 LET c=e-Cigs="1"I+Cigs= 


"LY: TF a=21 THEN LET a=] 

308@ IF a=@ THEN LET a=28 

3081 IF b=@ THEN CLET b=2@ 

3082 IF b=21 THEN LET b=1 

3083 IF c=@ THEN LET c=2@ 

3884 IF c#=21 THEN LET c=l 

3685 GO SUB 1980: GO SUB 2000: LET n=n-] 
> IF n=@ THEN GO TO 68 

3087 IF §£<>@ OR nu=1 THEN LET f=@: GO T 
0 68 

38398 GO TO 385¢8 

9590@ CLS : FOR i=1 TO 32: PRINT "“TUT.“3: 
NEXT i 

9555 IF INKEY$<>"* THEN GO TO 93555 
9586 CLEAR : RUN 21 

3660 CLS =: CIRCLE 128,808,600: CIRCLE 128, 

80,5: CIRCLE 98,11@8,1@: CIRCLE 160,11@,1 

Q 

961@ PLOT 98,58: DRAW 66,9,-.8 

93620 PRINT AT 1,@03;"Take 16 Credits off a 
n innocent" jAT 2,935"Fruit Machine wouid 
os ie 

9638 PRINT AT 21,@3;"“Well we will soon se 
e about that" 

3640 FOR f=1 TO f£: PRINT AT @,;83m+13"“ Cr 
edits.": BEEP .95,10: LET m=mt1: NEXT f: 
PAUSE 28: CLS : GO SUB 1888: RETURN 
39398 PRINT AT 19,@3;o0$5AT 20,3j;60$3AT 21,2 
30$: RETURN 


Chapter Fourteen 


Othello 


PLAYER = 
RED 


MOVE: F4 


LAST 
MOVE: 


ZToamnmmooveooDW Y 


Description 


In this version of the age-old game invented and mastered in the 
Far East, you are about to challenge the computer. The object is to 
complete the game with more of your coloured pieces on the 
board than your opponent’s. The game commences with an 8 x 8 
grid being constructed visually on the screen, with two of your 
pieces and two of the computer’s pieces positioned in the centre, 
as shown below. 


@ O 


O ® 
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Both players then take turns to put another piece on the board, 
trapping one or more of the opponent's pieces each time. These 
are turned over, being deemed to have been captured. The game 
continues in this manner until all sixty-four positions are 
occupied. If at any time a player is unable to make a move that 
would capture one or more of the opponent’s pieces, that go 
becomes void and the game-turn reverts to the opponent. 


Program 


Regretfully, this program will not fit into the 16K machine. It will 
fit into the 48K Spectrum, with plenty of room to spare. There 
should be no problems encountered during the typing stage, 
since the program contains few graphical characters, the majority 
of the lines containing the mathematics required to evaluate the 
best move for the computer. 


Instructions 


When the game has been loaded from the tape, type ‘CAPS 
LOCK’, followed by ‘RUN’. You will then be requested to indi- 
cate whether you wish to play another person, using the 
computer as a board and adjudicator, or against the computer 
itself. Finally, you must type in your name. The computer will 
then construct the board and very kindly offer you the first move. 

Moves are entered using a letter to indicate the row and a 
number to indicate the column in which you wish to position 
your piece, e.g. F4 or B2. 


Note 


If at any time you cannot make a move, then you must type ‘19’. 
This also applies at the end of the game, when the board is full, 
and at the beginning, if you would like the computer to make the 
first move. 


1 LET K=@ 
2 LET MOVE=@ 
3 DIM ACI, 18) 


oOnNOAW A 


co 


18 
LZ 
12 
13 
14 
bes) 
16 
1? 
18 
13 
25 
32 
138 
1391 
132 
135 
133 
134 
135 
136 
137 
138 
133 
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LET AlessJe=] 

LET AC6;6)=-1 

LET ACS,6)=1 

LET AC6;5)=1 

LET C=6 

DIM WC18, 18) 

LET AS="" 

FOR I=1 JO 18 

LET WLI, 1)=+8 

LET WCI,;18)=-8 

LET WOls Il==¢ 

LET WLI, l= 

NEXT I] 

LET QQ=@ 

LET JJ=@ 

LET END=@ 

IF K=@ THEN GO SUB 38288 
GO SUB 188 

LET MOVE=MOVE+] 

IF END>1 THEN GO TO 739397 
IF MOVE“2=INT CMOVE72) THEN GO TO 


PRINT AT 8,23;"RED" 

GO TO 136 

PRINT AT 8,;23"BLUE" 

PRINT AT 18,63" " 

IF C<>@ THEN PRINT AT 13;73A$ 

LET C=@ 

IF MOVE72=INT CMOVE72) AND PL=1 THE 


N GO TO 4888 


201 
283 
284 
206 
267 
288 
213 


INPUT AS 

LET I=CODE A$(C1)-64 

LET J=VAL AS(C2) 

LET I=I+1 

LET J=Jeu 

PRINT AT 18,6;3;A$% 

IF MOVE72=INT CMOVE72) AND PL=1 THE 


N GO TO 4888 


Z15 


GO TO 1999 
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21/6 LEY AlladJa<t 

217 IF MOVE72=INT (MOVE7’2) THEN LET AC 
T,J3=1 

213 GO SUB 1882 

248 GO TO 1398 

1822 

198) FOR Fe4 TO 18 STEF 2 

1082 FOR G=15 TO 23 STEP 2 

1083 IF ACF72,(G-11)72)=1 THEN PRINT AT 
F,;S3 INK 13"ma" 

10039 IF ACFZ42,(G-11)72)=-1 THEN PRINT A 
T F;G3; INK 23" 

1011 IF ACF72,CG-11)723=@ THEN PRINT AT 
F,;G3"," 

1013 NEXT G 

1814 NEXT F 

1815 RETURN 

1939 LET MAX=-2 

2800 IF ACI,JJ=@ THEN GO TO 281] 

2002 FOR F=1 TO 3 

2803 PRINT AT @,@;"JLLEGAL MOVE" 

2604 FOR O=@ TO 18 

2005 NEXT O 

2086 PRINT AT @,@03" 

2007 FOR O=8 TO 18 

2088 NEXT O 

20@3 NEXT F 

2818 GO TO 19] 

2614 PRINT AT 21553" 


20165 LET Afi=-] 
2818 IF MOVE’2=INT (MOVE72) THEN LET BB 


2013 IF MOVE’2=INT (MOVE72) THEN LET AA 


2020 FOR L=J+1 TO 18 

2023 IF ACI,LI=@ THEN GO TO 2848 
2624 IF ACI,LJ=AA THEN GO TO 2827 
2026 NEXT L 
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2627 IF L=J+1 THEN GO TO 2848 
2028 FOR M=J+1 TO L~-1l 

2030 LET ACI,MJ=AA 

2032 NEXT M 

2036 LET C=Cr]l 

264@ FOR L=J-1 TO 1 STEP -] 

2042 IF ACI,LJ=@ THEN GO TO 2068 
2044 IF ACI,LJ=AA THEN GO TO 2847 
2646 NEXT L 

2047 IF L=J-1 THEN GO TO 2068 
2e42 FOR fi-J=} TO Lt] STEP =1 

2050 LET ACI; MJ=AA 

2052 NEXT M 

2093 LET C=Cri 

2860 FOR L=I+1] TO 18 

2062 IF ACL,;JJ=@ THEN GO TO 2880 
2664 IF ACL;JJ=AA THEN GO TO 2867 
2066 NEXT L 

2067 IF L=I]+1 THEN GO TO 2888 
2668 FOR M=I+1 TO L-1 

2070 LET ACM,;JJ=AA 

2672 NEXT M 

2073 LET C=C+13 

2006 FOR L=[=] TO 2 STEP =] 

2882 IF ACL;JJ=@ THEN GO TO 2188 
2084 IF ACL;JJ=AA THEN GO TO 2887 
2086 NEXT L 

2087 IF L=I-1 THEN GO TO 2188 
2088 FOR M=I-1 TO Lti STEP -1 

2038 LET ACN;JJ=AA 

26392 NEXT M 

2033 LET €=€ri 

2188 REM *DIAGONALS* 

2101 LET 2=1 

2162 LET Madre 

2103 LET END=END+t] 

216% LET L=I-2 

2105 IF J<1@ AND I<1@ THEN LET END=@ 
2166 IF L=1 OR M=1@6 THEN GO TO 2128 
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2187 
2188 
2183 
2118 
ZA 44 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2128 
2121 
2124 
2125 
2126 
2128 
2132 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2133 
2140 
Z141 
2142 
2143 
2144 
21435 
2146 
2147 
2148 
2143 
2158 
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IF J=1@ OR J=1@ THEN GO TO 458@ 
IF ACL,;MJ=@ THEN GO TO 2128 
IF ACL,MJ=AA THEN GO TO 2112 
LET 2=2+1 

GO TO 2182 

IF 2=1 THEN GO TO 2120 

FOR V=1 TO 2-] 

LET L=]-U 

LET M=J+U 

LET ACL,;MJ=AA 

NEXT VU 

LET €=Er] 

REM “NEXT DIAG* 

LET 2=] 

LET Le Tz 

LET M=J-2 

IF L=1@ OR M=1 THEN GO TO 2140 
IF ACL,;MJ=@ THEN GO TO 2148 
IF ACL,MJ=AA THEN GO TO 2133 
LET 2=2+1 

GO TO 2124 

IF 2=1 THEN GO TO 2140 

FOR V=1 TO 2-1 

LET L=I+U 

LET M=J-U 

LET ACL,;MJ=AA 

NEXT U 

LET C=C+] 

LET 2=] 

LET L=]+2 

LET MN=J+2 

IF L=1@ OR M=1@ THEN GO TO 2168 
IF ACL,;MJ=@ THEN GO TO 2168 
IF ACL,MJ=AA THEN GO TO 2148 
LET 2=2+] 

GO TO 2141 

IF 2=1 THEN GO TO 2168 

FOR U=] TO 2-1 

LET L=]+U 
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LET M=J+U 

LET ACL,MJ=AA 

NEXT VU 

LET C=C+] 

LET 2=1 

LET L=]-2 

LET M=J-2 

IF L=1 OR M=1 THEN GO TO 2186 
IF ACL;MJ=@ THEN GO TO 2188 
IF ACL,;MJ=AA THEN GO TO 2173 
LET 2@=2+] 

GO TO 2161 

IF 2=1 THEN GO TO 2182 

FOR V=1 TO 2-1 

LET L=I-U 

LET M=J-U 

LET ACL;MJ=AA 

NEXT VU 

LET C=C+] 

REM “END OF SEQUENCE* 

IF C=@ THEN GO TO 2@@]1 

GO TO 216 

LET MAX=-6 

PRINT AT 2ZlaS3i*P L EASE WA I 


FOR T=1 TO 25 
NEXT T 
PRINT AT 21,53" 


GO TO 5@8@ 


FOR F=1 TO 3 

PRINT AT @,@;"NO POSSIBLE MOVE FOR 
PLAYER" 

FOR G=1 TO 8 

NEXT G 

PRINT AT @,83" 


89 


90 


4506 

4587 

3888 
5881 

38G2 
5863 
5884 
3807 
5888 
5883 
3818 
3815 
5828 
3823 
5824 

5825 
53638 
9835 
3848 
5858 
5854 

5858 
9853 
5860 
3088 
5188 
5118 
sii 
5128 
DLZO 
DLZO 
3127 
5138 
60228 
6622 
6824 
6826 
6827 
6828 
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NEXT F 

GO TO 138 
FOR J=2 TO 9 
FOR J=2 TO 9 
LET WCI,JJ=08 
NEXT J 

NEXT I 

LET AA=] 

LET BB==1 
FOR J=2 TO 9 


FOR J=2 TO 9 

IF ACI;JJ=@ THEN GO JO 5024 
LET WiIisJjJ=-8 

GO TO 5825 

GO SUB 5188 

NEXT J 

NEXT I 

FOR J=2 TO 9 

FOR J=2 TO 9 

IF WCI,J)=MAX THEN GO TO 5@53 
NEAT J 

NEXT I 


PRINT AT 18,6;CHR$ (1+64) 3-1 
LET A$=CHR$ (1+64)+STR$ (J-1) 
GO TO 2828 

FOR L=-1 TO ] 

FOR M=-] TO 1] 

IF ACI+L;J+M)=BB THEN GO TO 5132 
NEXT M 

NEXT L 

LET WC1,J)=-4 

RETURN 

REM 

FOR L=J+1 TO 18 

IF ACI,LJ=@ THEN GO TO 6842 
IF ACI,LJ=AA THEN GO TO 6827 
NEXT L 

IF L=J+1] THEN GO TO 62848 

POR f=J¢1 TO Li 


6632 
6836 
6648 
6842 
6844 
6646 
6847 
6848 
6858 
6652 
6868 
6862 
6864 
6866 
6867 
6868 
6878 
6872 
6088 
6882 
6084 
68686 
6687 
6888 
6838 
6892 
6180 
6182 
61984 
6186 
6188 
6169 
6118 
6111 
6112 
6113 
6114 
6115 
6116 
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LET WCI,JI=WCI;,J)+1 

NEXT 

FOR L=J-1 TO 1 STEP —1 

IF ACI,;LJ=@ THEN GO TO 6064 
IF ACI,LJ=AA THEN GO TO 6847 
NEXT L 

IF L=J-1 THEN GO TO 6868 

FOR M=J-1 TO Lt+1l STEP ~-1 

LET WCI,JIJ=WCI,J3+1 

NEXT M 

FOR L=I+1 TO 18 

IF ACL,J)J=@ THEN GO TO 6888 
IF ACL,JJ=AA THEN GO TO 6867 
NEXT L 

IF L=I+1 THEN GO TO 6888 

FOR M=I+1 TO L-1 

LET WCI,JJ=WCI,J)+1 

NEXT 1 

FOR L=]-1 TO 1 STEP -1 

IF ACL,JJ=@ THEN GO TO 61288 
IF ACL,JJ=AA THEN GO TO 6887 
NEXT L 

IF L=I-1 THEN GO TO 6188 

FOR M=I]-1 TO Lt+1 STEP ~1 

LET WCI,JJ=WCI;,J)+1 

NEXT M 

LET #=1 

LET M=Jté 

LET L=I-2 

IF L=]1 OR M=1@ THEN GO TO 6120 
IF ACL,MJ=@ THEN GO TO 6128 
IF ACL,M)J=AA THEN GO TO 6112 
LET 2=2+1 

GO TO 6182 

IF @=] THEN GO TO 6126 

FOR U=] TO 2-1 

LET LeJ=U 

LET M=J+U 

LET WCI,JJ=WCI,J)+1 
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6117 
6126 
6124 
6125 
6126 
6128 
6123 
6138 
613] 
6132 
6133 
6134 
6135 
6136 
6137 
6140 
6144 
6145 
6146 
6148 
61493 
6158 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
61608 
6164 
6165 
6166 
6168 
6169 
6178 
6171 
6172 
6173 
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NEXT U 

LET 2=1 

LET L=I+2 

LET M=J-2 

IF L=1@ OR M=1 THEN GO TO 6148 
IF ACL,;MJ=@ THEN GO TO 6148 
IF ACL, MJ=AA THEN GO TO 6132 
LET 2=2+t] 

GO TO 6124 

IF 2=1 THEN GO TO 6140 

FOR V=1 TO 2-] 

LET L=]+VU 

LET M=J-U 

LET WCI,JJ=WCI,J)+1 

NEXT VU 

LET 2=1 

LET L=I+t2 

LET M=J+2 

IF L=1@ OR M=1@ THEN GO TO 6160 
IF ACL;MJ=@ THEN GO TO 6168 
IF ACL;MJ=AA THEN GO TO 6152 
LET 2=2+1 

GO TO 6144 

IF %=1 THEN GO TO 6168 

FOR V=1 TO 2-1 

LET L=I]+U 

LET M=J+U 

LET WCI,JJ=WCI,JI+1 

NEXT U 

LET 2=1 

LET L=]-2 

LET M=J-2 

IF L=1 OR M=1 THEN GO TO 6178 
IF ACL;MJ=@ THEN GO TO 6178 
IF ACL,MJ=AA THEN GO TO 6172 
LET 2=2+] 

GO TO 6164 

IF 2=1 THEN GO TO 6178 

FOR U=i1 TO 2-1 


———— eee ee ee a 
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ele? LET L&=I-U 

6175 LET M=J-U 

6176 LET WCI,JJ=WCI,J)+1 

6177 NEXT VY 

6178 IF WCI1,JJ=@ THEN LET WCI,Jj)=-8 
6173 IF WCI,JJ=-8 THEN RETURN 

6186 IF I=J=2 THEN LET WC],JJ=WCI,iJ)+4 
6182 IF J=J=9 THEN LET WCI,JJ=WC1,J)+4 
6184 IF T=2 AND J=3 THEN LET WCI;,J)=WCI 


»jJI+4 

6186 IF J=9 AND J=2 THEN LET WCI,Jj)=WC] 
,JI)+4 

6188 IF J=2 THEN LET WCI,JJ=WCI,J)+2 
619@ IF J=9 THEN LET WCI],JJ=WCI,J)+2 
6131 IF J=2 THEN LET WCI],JJ=WCI,J)+2 
6192 IF J=3 THEN LET WCI,JJ=WCI,J)+2 
6193 IF I=3 OR I=8 THEN LET WCI,JJ=WCI, 
J)-2 

6194 IF J=3 OR J=8 THEN LET WCI,JIJ=WCI, 
JI=Z 


6206 IF WCI,JJ>MAX THEN LET MAX=WCI, J) 
6202 RETURN 

7008 FOR X=29 TO 68 

7004 NEXT X% 

7085 FOR Y=4 TO 37 

7008 NEXT Y 

7005 PRINT AT Zsis3"i 234 5 6 2? B* 
7019 LET L#2 

7611 FOR K=65 TO 72 

7012 LET L=Lt+2 

7@13 PRINT AT L,123CHRS (KI 

7614 NEXT K 

7015 FOR xX=1 TO 18 

7018 NEXT X% 

7013 FOR Y=12 TO 33 

7022 NEXT Y 

7823 PRINT AT 6,1 ;"PLATER=" 

7024 PRINT AT 186,13;"MOVE:" 

7625 PRINT AT 12; 135"LAST" SAT 135 25°MOUE® 


” 
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782? 
7337 
7338 
7933 
8288 

ES 
8081 
BQG2 
8803 


8284 
8005 
8206 
8887? 
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RETURN 


FOR H=2 TO 5 

FOR G=2 TO 9 

PRINT AT 21,0;"W AI T FOR R 
Eb & 7 

IF ACH; GJ=1 THEN LET JJ=JJ+] 

IF ACH,;G)J=-1 THEN LET QQ=QQt] 
PRINT AT 21,03" 


NEXT G 

NEXT H 

CLS 

IF JJ>Q@Q THEN PRINT N$3" HAS WON T 


HE GAME,"3;JJ3;" T@ "300 


8808 


IF QQ@>JJ THEN PRINT M$3" HAS WON T 


HE GAME,";QQ;" TO "j3JJ 


8803 IF QQ=JJ THEN PRINT "THE GAME WAS 
A DRAW" 

8818 PRINT AT 2,;53;"DO YOU WANT ANOTHER G 
ANE? 

8011 IF INKEY$<>"" THEN GO TO 88611 
8012 IF INKEY$=""" THEN GO TO 8612 
8013 LET END=6 

8014 IF INKEY$<>"Y" THEN GO TO 8822 
8015 GO SUB 93848 

8020 LET K=1 

8821 GO TO 2 

8822 STOP 

93881 FOR G=@ TO 21 STEP 2 

9042 PRINT AT GaS53"0 T HELL O* 
3083 NEXT G 

3684 FOR G=21] TO @ STEP =z 

9085 PRINT AT G,1@;"0 THELL O” 
3686 NEXT G 

3811 FOR F=1 TO 28 

3@12 NEXT F 

3613 CLS 

3014 REM 


3828 
3821 
3622 
3843 
3856 


Othello 


LET K=@ 

IF INKEY$<>"" THEN GO TO 982] 

IF INKEY$="" THEN GO TO 93823 

CLs 

PRINT “NUMBER OF PLAYERS-1 (AGAINST 


THE COMPUTER) OR 2" 


93651 
3852 
1 

3853 
3854 
3855 
3856 
3057 
3858 
3866 
SET 
3661 
3862 
SE?” 
3863 
3188 
3118 
3128 
3368 
3318 


LET AS=INKEYS 
IF AS<"1" OR AS>"2" THEN GO TO 385 


LET PL=VAL A$ 

IF PL=2 THEN GO JO 93860 

PRINT AT 2;53;"NAME;PLEASE?” 

INPUT M$ 

LET N$="THE COMPUTOR" 

GO TO 9188 

PRINT AT 2,53;"NAME OF PLAYER 1,;PLEA 


INPUT M$ 
PRINT AT 3,5;"NAME OF PLAYER 2;,PLEA 


INPUT N$ 

CLS 

GO SUB 7888 
RETURN 

SAVE "OTHELLO" 
GO TO |i 
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Chapter Fifteen 


Dungeons of Death 


Command?n | 


YOU ARE AT 3,2 LEVEL 2 
You attack and score 4 points of 
damage 


Description 


You are an adventurer in the ‘Dungeons of Death’ and your quest 
is to locate the Magic Orb and return it to the Lords of Light, from 
whom it was stolen. Numerous dangers threaten you in the eight 
levels of dark, dank, dismal dungeons and so far no one who has 
entered has ever returned to tell the tale. Can you be the first to 
brave the ferocious monsters and treacherous conditions to win 
through safely? 

In the maze of dungeons, you will find many things that will 


Dungeons of Death oF 


influence your journey. Some are inherently dangerous, while 
others may be useful — if skilfully manipulated. Some of these 
are listed below. 


TREASURE There are ten treasures to be found, the last of which 
is the Goldrod, which gives you the ability to teleport any- 
where throughout the dungeons. 

ORBS These are most useful, since you can gaze into them in the 
hope of obtaining information concerning the location of the 
Magic Orb. It should be noted, however, that every gaze into 
an orb costs one point of dexterity. 

VENDORS There are several vendors wandering around the 
various levels and they will be more than happy to buy your 
treasures and/or sell you potions for all sorts of things. 

MONSTERS There are several different types of monster lurking 
in the dungeons. You may either attack or retreat from these. 
Killing a monster is the best way to obtain the all-important 
gold required for trading with the vendors. 

CHESTS These may be opened . . . if you dare! 

BOOKS These may also be opened, if you wish. 

WARPS If you land on a warp, you will be transported to a 
randomly selected position within the dungeons. 

SINK-HOLES Stepping onto a sink-hole will transport you down 
to the next level of the dungeons. 


Good hunting, good fortune and good luck — you'll need it! 


Program 


Although the game is split into two distinct programs, it will still 
not fit into the 16K machine, owing to the large amount of 
memory required to represent the map of the dungeons. 


Dungeon 1 


This program contains the lines defining the graphics characters 
specifically required for the main game-playing program. This 
should be typed into the computer and then saved onto tape 
using the name ““dungeon1”. 
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Dungeon 2 


This is the main program and contains a considerable number of 
user-defined graphics, clearly marked in the program listing, 
which must be entered with great care. When the typing is 
complete, this program should be saved onto tape using the name 
“dungeon2”. 


Instructions 


Load “‘dungeon1” into the computer and then type ‘RUN’. When 
the processing has been completed, ‘““dungeon2” will be auto- 
matically loaded and the game will then commence. During your 
exploration of the depths you will have two facilities at your 
disposal: 


SITUATION If your strength, dexterity or intelligence falls below 
zero, you will perish immediately. It is therefore imperative 
that you keep a watchful eye on these factors at all times. By 
typing ‘A’ at any time other than when faced by a monster, a 
status report will be displayed. 

FLARES Using the flares command will cause the dungeons 
around you to light up. You may not, however, use this facility 
when at the edge of any level, and as the number of flares is 
limited, they should be used sparingly. 


Controls 


The N-key moves you to the north. 

The S-key moves you to the south. 

The W-key moves you to the west. 

The E-key moves you to the east. 

The U-key is used for climbing stairs. 

The T-key is used to teleport if you have the goldrod. 
The G-key is used to gaze into an orb. 

The Y-key is used to trade with a vendor. 

The A-key is used to attack a monster. 

The R-key is used to retreat from a monster. 
The O-key is used to open a chest or book. 

The D-key is used to have a drink from the pool. 
The A-key is used to obtain a status report. 

The F-key is used to light a flare. 
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Graphics 


The Table below identifies the graphics symbols found in the 
dungeons. 


(} = A book 

@ = Achest 

— = The entrance 
‘y" = Flares 

= = Gold 

4° = A vendor 


( = A warp 

% = A monster 
& = Anorb 

® = Apool 

® = Asinkhole 
©} = Treasure 
“i = Stairs up 


5 REM character definition program 
1@ FOR a=1 TO 14: READ a$: FOR b=@ TO 
?: READ n: POKE USR a$+b,n: NEXT b?: NEXT 


15 DATA "b",62,126,78,78, 78,78; 78,124 
28 DATA "c", 8,63, 67, 253, 253; 254, 252,08 
3@ DATA "d",6,69,101,118,128,124,126,@ 
4@ DATA "e",8,62,62,62,58,62, 62,62 

5@ DATA "f",128,54,28,72,8,18,48,8 

68 DATA "9",8,628,126,0,60;,126,9,98 

78 DATA "i", 48,39, 125, 167,32; 88; 72,72 
BQ DATA "k", 127,128, 158, 161,165,153,12 

9 125 

98 DATA “m", 9@, 36, 24, 68, 98, 24, 36, 192 
188 DATA "o",8,24,6@, 126,68, 24,68, 126 
110 DATA "p",16,56,124, 126,68, 28,24, 
12@ DATA "s",@,68,66, 98, 98,66,69,0 
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125 DATA "t",73, 28, 34;,73, 349, 26,723,%4 
138 DATA “u",88,82,118,14,38,62,126,¢ 
15@ PRINT "“Wouid you like a printout of 
allthe graphic characters for the game 
au 
160 INPUT y$: IF y$C1ij="y" THEN GO TO 
588 
17?@ STOP 
5@8 LPRINT "b=A bDook" 
585 LPRINT 
518 LPRINT “e=A chest" 
515 LPRINT 
32@ LPRINT “e=The entrance” 
525 LPRINT 
538 LPRINT "f=Flares" 
535 LPRINT 
940 LPRINT "g=Gold" 
545 LPRINT 
39@ LPRINT "“i=A vendor" 
555 LPRINT 
' 56@ LPRINT "k=A warp” 
565 LPRINT 
. 578 LPRINT “m=A monster” 
575 LPRINT 
398@ LPRINT “o=An orb" 
585 LPRINT 
39386 LPRINT "p=A pool" 
595 LPRINT 
608 LPRINT "s=A sinkhole" 
685 LPRINT 
61@ LPRINT “t=Treasure” 
615 LPRINT 
62@ LPRINT “u=Stairs up" 
638 STOP 
Dungeon 2 
4 BORDER 6 


6 PRINT AT 18,183; FLASH 13; INVERSE 1; 
INK 13"Initializing" 
7? LET 002=@6 


12 
20 
22 
24 
26 
30 
31 
32 
33 
34 
36 
LET 
40 
41 
42 
43 
44 
45 
46 
4? 
30 
31 
ae 
33 
34 
re 
628 
78 
82 
38 
118 
128 
138 
[£37 
148 
158 
168 
172 
188 
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DIM A$C8; 8,8) 

DIM C$C(8,8,8) 

LET OR=INT CRNDX8)+1 

LET OF=INT CRNDX8)+1 

LET 2OT=INT CRNDX8)+1 
LET X=] 

DIM P$C3, 12) 

LET P$C1J="Intelligence" 
LET P$C2)="Strength" 

LET P$C3)="Dexterity" 
LET ORB=@: LET CHEST=@0: LET BOOK=0: 
POOL=@: LET VEND=@: LET UP=8 
LET Y=4 

DIM M$C6, 18) 

LET M$C1IJ="Kobolo" 

LET M$C2)="Dragon" 

LET M#C3)="Wolf" 

LET M$C4)="Chimera" 

LET M$CSJ="Og9re" 

LET M#C6)="Cyclops” 

LET L=]1 

DIM EC1@) 

FOR T=1 TO 18 

LET ECTJ=0 

NEXT T 

LET TATT=0 

LET AX=2 

LET AY=8 

LET F=INT CRNDX2@)+1 

LET GP=INT CRNDX660)+202 
LET ARMOUR=@ 

LET WEAPON=@ 

LET D=INT CRNDX18)+1 

LET R=1 

LET I=INT CRNDX18)+1 

LET S=INT CRNDX18)+1 

DIM T$C1@,20) 

LET T$C1J="Pale pearl" 
LET T$C2)="Ruby red" 


268 
278 
280 
238 
388 
318 
3208 
332 
348 
358 
368 
363 
~ 364 
365 
366 
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LET T$C3)="Blue flame" 

LET T$C4)="Opal eye" 

LET T$(5)="Green gem" 

LET T$C6J="Shining ring" 

LET T$C73="Silmaril” 

LET T$C8)="Precious gold" 

LET SS="mst. b.O./P. i Kale Salle. fas 


LET T$C93)="Orange amber" 
LET T$C1@)="Goldrod" 

FOR A=1 TO 8 

FOR B=1 TO 8 

FOR C=1_TO 8 

LET DIM=INT CRNDX29)+1 
LET A$(B,C,A)=BS(DIM) 
LET C$(8,C,ad=" " 

NEXT C 

NEXT B 

NEXT A 

LET .ASCOR, OF, Z0TJ="0" 
LET A$C1,4,1)="e" 

FOR T=1 TO 10 

LET ASCINT CRNDX8)+1, INT CRNDX8)+1, 


INT CRNDX8)+13="1t" 


367 
368 
378 
382 
338 
400 
410 
420 
439 
448 
445 
458 
460 
478 
488 


NEXT T 

CLS 

PRINT “Your strength is "3S 

PRINT “Your intelligence is "3] 
PRINT “Your dexterity is "3D 

PRINT 

PRINT "You have "“3F3" flares and " 
PRINT “You have "3GP3;" Gold pieces" 
PRINT 

PRINT "Press any key to continue" 
PAUSE 3808a 

IF INKEY$="""THEN GO TO 458 

GLS : 
PRINT "You may buy:" 

PRINT "1) Plate, for 15@ GPS" 


498 
50a 
538 
548 
55a 
395 
557 
569 
578 
+32 
588 
598 
+20 
628 
618 
+18 
615 
639 
635 
648 
658 
668 
670 
688 
698 
788 
718 
720 
722 
P29 
PLP 
738 
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PRINT "2) Chainmail, for 188 GPS" 
PRINT "3) Leather, for 5@ GPS" 
PRINT 

PRINT “Input your choice” 

INPUT CHOICE 

GO SUB 562 

GO TO 638 

IF CHOICE=1 THEN LET GP=GP-15@ 

IF CHOICE=1 THEN LET ARNOUR=ARMOUR 


IF CHOICE=2 THEN LET GP=GP-10@ 
IF CHOICE=2 THEN LET ARMOUR=ARMOUR 


IF CHOICE=3 THEN LET GP=GP-52 
IF CHOICE=3 THEN LET ARMOUR=ARMOUR 


RETURN 

CLS 

PRINT "And now a weapon" 

PRINT 

PRINT "1) A sword (€150)" 

PRINT "2) A knife C100)" 

PRINT "3) A piece of wood (50)" 
PRINT 

PRINT “Input your choice" 

INPUT CHOICE 

GO SUB 568 

CLS 

GO SUB 73a 

GO SUB 748 

GO TO 835 

PRINT AT 18,@;"YOU-ARE AT "5X3", "57 


° LEVEL 5b 


re 
758 
762 
772 
788 
7398 


RETURN 

FOR R=1 TO 8 

FOR U=1 TO 8 

PRINT AT RX2,UX2;C$(R,U,L) 
NEXT U 

NEXT R 
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PRINT AT AX, AY-135"°<"5AT AK, AT+15°>" 
PRINT AT AX, AT SASCX,Y,L) 
LET C$Cx,Y,LI=ASCX,Y,LI 
IF F<@ THEN LET F=@ 
RETURN 
GO SUB 73a 
RETURN 
GO SUB 218@ 
GO TO 848 
IF x=1 AND Y=4 AND L=1 THEN GO TO 
PRINT AT 19,03" 
yer ia . 
GO SUB 83a 
LET ORB=@: LET CHEST=@: LET BOOK=0: 
POOL=@: LET UP=@: LET VEND=2 
IF GP<@ THEN LET GP=2 
GO SUB 88a 
GO SUB 212@ 
PRINT AT 3,183;"Command?" 3 
IF S<1 OR I<1 OR D<1 THEN GO TO 58 
PAUSE 388288 
LET e$=INKEY$ 
PRINT AT 19,0835" 
PRINT AT 5,26;2$ 
GO SUB 2080 
IF 2$="n" THEN GO TO 1880 
IF @$="s" THEN GO TO 1182 
IF 2$="e" THEN GO TO 1288 
IF 2$="w" THEN GO TO 1388 
IF 2$="f" THEN GO TO 1488 
IF 2$="t" THEN GO TO 1608 
IF 2$="a" THEN GO TO 7908 
IF 2$="9" AND ORB=1 THEN GO TO 234 


9342 
7@3 
343 
15 
344 
945 
18 
346 
28 
368 
1880 
1818 
1820 
1084 
1058 
1862 
1070 
1100 
1118 
1120 
1148 
1158 
1160 
1178 
1208 
1218 
1220 
1240 
1258 
1268 
: 1278 
1380 
1318 
1328 
1348 
1358 
1362 
© 1378 
1488 
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IF 2¢="0" AND CHEST=1 THEN GO TO 2 


IF €$="0" AND BOOK=1 THEN 


GO TO 28 


IF e$="u" AND UP=1 THEN GO TO 2930 


IF 2$="d" AND POOL=1 THEN 
IF €$="y" AND VEND=1 THEN 


GO TO 84@ 

IF X=1 THEN GO TO 1858 
LET AX=AX-2 

LET xX=x-1 

GO TO 848 

LET AX=16 

LET X=8 

GO TO 84@ 

IF AX=16 THEN GO TO 1158 
LET AX=AX+2 

LET X=X+]1 

GO TO 840 

LET AX=2 

LET x=1 

GO TO 114@ 

IF Y=8 THEN GO TO 1258 
LET AY=AY+2 

LET Y=Y+1 

GO TO 8498 

LET AY=2 

LET Y=] 

GO TO 1238 

IF AY=2 THEN GO TO 1358 
LET AY=AY-2 

LET Y=Y-1 

GO TO 84@ 

LET AY=16 

LET Y=8 

GO TO 1334 

IF F>@ THEN GO TO 1432 


GO TO 32 


GO TO 36 
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106 


14208 
EFT 
1438 
1431 
1432 
0! TO 
14428 
1458 
1462 
1465 
1472 
14275 
1477 
1488 
1438 
1518 
1688 
1618 
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PRINT AT 19,@;"YOU HAVE NO FLARES L 


BEEP 2,7? 

GO TO 84a 

IF X=1 OR X=8 OR Y=1 OR Y=8 THEN G 
848 

PRINT AT AX-2,AYj;A$CX-1,Y5,L) 

PRINT AT AX+2,AYj3A$SCX+1,Y,L) 

PRINT AT AX, AY+2j;A$CX, Yt1,L) 

PRINT AT AX, AY-2jA$CX, Y-1,L) 

PRINT AT AX-2,AY-2j3A$(X-1, Y-15L) 
PRINT AT AX-2,AY+23A$(X-1,Y+1,L) 
PRINT AT AX+2,AY-23AS$C(Xt+1,.Y-15,L) 
PRINT AT AX+2,AY+2j3A$CXt1, Y+15L) 
LET F=F-1 

GO TO 84@ 

IF £C1@)=1@ THEN GO TO 1648 
PRINT AT 193,;83;"You do not have the 


Goldrod" 


1626 
ro 

1625 
1638 
1648 
1658 
1655 
1668 
1662 
1665 
1667 
1678 
1688 
1682 
1695 
1696 
1697 
1698 
2888 


PRINT AT 28,83;"So you cannot telepo 


PAUSE @ 

GO TO 84a 

CLS 

PRINT "To where will you teleport?" 
PRINT "x co-ordinate="3 

INPUT xX 

PRINT X 

PRINT “y co-ordinate="; 

INPUT Y 

PRINT Y 

PRINT "Level="3 

INPUT L 

PRINT L 

LET AX=XxX2 

LET AY=YxX2 

GO TO 728 

PRIAT @7F AmsAT-13" “SAT AR,ATHL;" * 


* : 


2618 RETURN 


2108 LET X$=A$CX,Y,LI 


2102 IF X$="9" 
OT THEN GO TO 
2185 IF X$="e" 
2118 IF X$="0" 
2120 IF X$="q" 
2130 IF Xs="4" 
2148 IF X$="¢" 
2150 IF X$="b" 
2160 IF X$="u" 
2178 IF X$="s" 
218 IF X$="t" 
2198 IF X$="p" 
2200 IF X$="k" 
2218 IF X$="pn" 
2220 IF X$="4" 
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AND X=OR 


4080 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 


2230 PRINT AT 19,83;"You 


room" 
2248 RETURN 


2380 PRINT AT 19,@3;"Here 


AND Y=OF AND L=2 


TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
are 


is an orb” 


4108 
2388 
2580 
2688 
2788 
2800 
2900 
3800 
3188 
3282 
33288 
3488 
3680 


in an empty 


2301 PRINT AT 5,183"Command?" ; 


2302 LET ORB=1 
2385 GO TO 848 


2318 PAUSE 38008 
2315 LET 2$=INKEY$ 


2338 PRINT 2$ 
2348 IF 2$="9" 
2358 GO TO 865 


* 2355 PRINT AT 19,03” 


THEN GO TO 2355 


2368 PRINT AT 19,@;"You see" 


»237@ LET RNAD=INT CRNDxX5S+1) 


238@ IF RNAD=1 THEN PRINT 


a bloody heap" 


283@ PRINT "FLASH....yvour eyes hurt" 


2891 LET F=0- 


2892 LET I=I-INT CRNDX5S)+1 


2895 GO TO 8428 


"Yourself 


in 
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23900 PRINT AT 19,83"You find stairs goin 
9 up" 

2981 PRINT AT 5,183;"Command?" ; 

2902 LET UP=1 

2983 GO TO 848 

2985 PAUSE 38882 

2918 LET 2$=INKEY$ 

2920 PRINT 2$ 

2930 IF 2$<>"u" THEN GO TO 848 

2332 LET UP=@ 

2935 IF L=1 THEN GO TO 2978 

2937 LEI LeL-1 

2948 GO TO 728 

2970 LET L=8 

2988 GO TO 728 

3808 PRINT AT 19,@83;"Here is a sinkhole" 
3001 PAUSE 288 

3002 IF L=8 THEN GO TO 3859 

3003 FOR n=16 TO 1: BEEP .5,;n: PAUSE 5S: 
NEXT n 

3818 LET L=L+1 

3828 GO TO 720 

3030 LET L=1 

3849 GO TO 758 

3858 LET L=1 

3855 GO TO 728 

3180 FOR T=1 TO 18 

3195 IF ECTJ=@ THEN GO TO 3120 

3118 NEXT T 

3120 LET ECTIJ=T 

3122 FOR n=@ TO 7: BORDER n: NEXT n 
3123 BORDER 6 

3125 PRINT AT 19;,@03;"Hereis treasure:" 
313@ PRINT “It is the "35T$C(T) 

3148 PRINT “Well done" 

3145 LET AS${X, ¥,LI="." 

3158 GO TO 88a 

3208 PRINT AT 19,@;"Here is a pool" 
3201 PAUSE 389028 
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3282 LET POOL=1 

3203 GO TO 848 

3205 LET 2$=INKEY$ 

3210 IF 2$<>"d" THEN GO TO 888 

3236 GO TO INT CRNDX5)X*10+3230 

3235 LET D=D+INT CRNDX5S)+1 

3237 GO TO 89a 

324@ PRINT AT 20,@;"You become more inte 
[Lligent" 

3245 LET I=I+INT CRNDXSJ+1 

3247 GO TO 8aa 

3258 PRINT AT 20,@;"Oh dear the water wa 
Ss poisoned" 

3255 LET S=S-INT CRNDX1@)+1 

3257 GO TO 88a 

326@ PRINT AT 20,;03;"Oh dear-You have dru 
nk a worm" 

3265 LET D=D-INT CRNDX1@)+1 

3267 GO TO 8aa 

3299 GO TO 3238 

3380 PRINT AT 19,@3;"Here be a warp" 
3382 PAUSE 15@ 

3385 

3310 LET X=INT CRNDX8)+1 

332@ LET Y=INT CRNDX8)+1 

333@ LET L=INT CRNDX8)+1 

3332 LET AX=xx2 

3334 LET AY=YxX2 

3335 

334@ GO TO 720 

34@@ LET N=INT CRNDX6)+1 

3418 PRINT AT 19,@3;"You see a "3N$C(M) 
3415 PAUSE 258 

3438 LET MOD=CMxX5)+1 

*344@ PRINT AT 19,03" 


3 elwns liners ‘ 
et 


3441 PRINT AT 19,83;"You may attack or re 
treat” 
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345@ INPUT Us 

3468 IF U$="a" THEN GO TO 3588 

3470 IF Ut<>"r" THEN GO TO 3438 

3471 PRINT AT 19,@;"You have retreated b 
ut: = 

3472 IF D>MOD-1 THEN PRINT “He attacks 


and. misses" 
2396 1F RNAD=2 THEN PRINT “The magic or 


boat "SINT CRNDX8)+15","3INT CRNDX8)+135" 
Level “SINT CRNDX8)+1 

24800 IF RNAD=3 THEN PRINT "The magic or 
bat "jOR;",;"30F3" Level "3;20T 


2410 IF RNAD=4 THEN PRINT “Yourself bec 
oming an orb" 

2420 IF RNAD=5 THEN PRINT "A cracked or 
pH 

2438 LET D=D-1 

2486 IF ARMOUR<45 THEN LET D=D-INT CRND 
X2) 

2482 GO TO 82a 

2580 PRINT AT 19,@3;"Here you find gold" 
2501 LET GOLD=INT CRNDX36@0)+1 

2518 LET GP=GP+GOLD 

2528 PRINT AT 28,03;"You find “;GOLD;" 90 
id pieces" 

2538 LET A$CX,Y,LI="," 

2548 GO TO 8a@ 

26808 PRINT AT 19,@3;"Here you find flares 
2601 LET FLA=INT CRNDX7)+1 

2604 PAUSE 1288 

2686 PRINT AT 19,03" 


2619 LET F=F+FLA 

2628 PRINT AT 19;,@3;"You find “3FLA;" fla 
res" 

263@ PRINT “You now have "j3F3" flares" 
2635 LET ASCX,Y,;LIJ="." 

2640 GO TO 82a 


2660 
2700 
2702 
2703 
2785 
270? 
2783 
2710 
nd" 
2712 
2714 
2713 
2720 
272) 
A722 
2724 
2738 
3” 
273] 
2732 
2740 
2758 
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GO TO 2770 

PRINT AT 19,03;"You see a chest" 

LET CHEST=1 

GO TO 848 

PAUSE 30888 

LET 2$=INKEY$ 

IF 2$<>"0" THEN GO TO 838 

PRINT AT 19;@3;"You open the chest a 


LET CHEST=@ 

LET ASCX,Y,LJ="." 

GO TO 271@+INT CRNDX5+1)x12 

PRINT "It explodes" 

FOR n=1 TO 10: BEEP 1,n: NEXT n 

LET S=S-INT CRNDX5)+1 

GO TO 82@ 

PRINT AT 20,@3"You find "3X3" Flare 


LET F=Ft+Xx 

GO TO 82a 

PRINT "You find "j3Y¥3;" flares " 
PRINT “and you find "3INT CGP73@) 3” 


gold pieces" 


2755 
2760 
m 
2762 
2764 
2808 
2885 
288? 
2810 
2812 
2815 
2817 
d:" 
2818 
2513 
2820 


GO TO 88a 
PRIN] “GaSne0048n2 94> You stagger fro 


the room" 


LET D=D-INT CRNDX3)+1 

GO TO 8a@ 

PRINT AT 19,@3;"You find a book" 

LET BOOK=1 

GO TO 848 

PAUSE 30800 

LET 2$=I]NKEY$ 

IF 2$<>"0" THEN GO TO 832 

PRINT AT 28,@3;"You open the book an 


LET ASCX,Y,LJ="," 
LET BOOK=@ 
LET QUE=INT CRNDX3)+1 
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283@ IF QUE=1 THEN GO TO 2858 
2833 IF QUE=2 THEN LET GP=GP+688 
2835 IF QUE=2 THEN PRINT "You find 688 
gold pieces" 
2837 IF QUE=3 THEN PRINT "A potion of s 
trength-" 
2838 IF QUE=3 THEN LET S=S+INT CRNDX5)+ 
i! 
2845 GO TO 828@ 
2858 LET BUQ=INT CRNDX2)+1 
28606 IF BUQ=1 THEN GO TO 2898 
28708 PRINT "The book sticks to your hand 
gi 
2871 IF EC3)=3 THEN GO TO 2875 
2872 LET ARMOUR=@ 
2875 GO TO 8a@ 
2888 IF EC4)=4 THEN GO TO 2895 
2885 BEEP 2,18 
3474 IF D<MOD-1 THEN PRINT "Ouch he hit 
s you" 
3475 IF D<NOD-1 THEN LET D=D-INT CRNDX3 
) 
3488 IF ARMOUR<45 THEN LET D=D-INT CRND 
x2) 
3481 PAUSE 208 
3482 GO TO 888 
3506 LET ATT=INT CRNDX6)+1 
¥ 3585 PRINT AT 19,903" 


3518 PRINT AT 19,;@3;"You attack and score 
“SJATT3" points of damage" 

3515 PAUSE 158 

3526 LET TATT=TATT+ATT 

3525 IF TATT>MOD’2 THEN GO TO 3558 

3527 LET ART=INT CRNDX5)+S 

3538 IF ART> INT CRNDX2@)+1 THEN GO TO 3 

5333 

3531 PRINT "He attacks and hits you" 


3532 
3533 
3534 
“INT 
3535 
3536 
3537 
3548 
3545 


~ 3558 


4 3II2 


35355 
3560 


3578 
3573 
3574 
3575 
36280 
3681 
3602 
3604 
3629 
3618 
3622 
3628 
3632 
364a 
3650 
3655 
3662 
372a 
3781 
3722 


*5TSCz)3" for "3TPR5" 


gout 


3722 
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GO TO 3534 
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"PRINT "He attacks and misses you" 
IF ART<INT CRNDX2@)+1 THEN LET S=S 


CRNDX4) +1 
IF ART=1 THEN GO TO 3588 


IF ART=25 OR ART=32 THEN LET ART=1 


IF ART=1 THEN GO TO 3532 
PAUSE 158 

GO TO 3448 

PRINT AT 19,03" 


PRINT AT 19,@;"Monster is @ dead 


LET MGPS=INT CRNDX900)+1 


PRINT AT 28,@3;"You get his "3MGPS3" 
goid pieces" 


LET GP=GP+MGPS 
LET TATT=@ 

LET ASCX,Y,;LI="." 
GO TO 822 


PRINT AT 19,;@3;"Here is a vendor" 


PRINT "Do you wish to trade?" 
LET VEND=1 

GO TO 848 

PAUSE 30088 

LET 2$=INKEY$ 

IF 2$="i" THEN GO TO 848 
IF 2$<>"y" THEN GO TO 861 
FOR 2=1 TO 18 

IF EC2)<>8 THEN GO TO 37288 
NEXT 2 

CLS 

GO TO 3778 

CLS 

LET TPR=INT CRNDX3806)+1 
PRINT "Do you wish sell the 


INPUT S$ 


GPS 
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IF S$="n" THEN NEXT 2 

LET GP=GP+TPR 

LET EC2)=8 

NEXT @ 

IF GP<1@@@ THEN GO TO 720 

LET P=INT CRNDX3)+1 

PRINT "Do you wish to buy a potion 


"S3P$CPJ3" for 1888 GPS?" 


INPUT Q$ 

IF Q$="y" THEN GO TO 3888 

GO TO 3988 

IF P=1 THEN LET J=I+INT CRNDX6)+1 
IF P=2 THEN LET S=S+INT CRNDX6)+1 
IF P=3 THEN LET D=D+INT CRNDX6)+1 
LET GP=GP-1888 

GO TO 3778 

PRINT "Do you wish to buy armour?" 
INPUT Q$ 

IF Q$="y" THEN GO TO 462 

GO TO 7206 

CLS 

FOR n=1 TO 2@: LET ki=INT CRNDX16)+ 


1: BEEP .5;,;ki? NEXT n 


4018 
4025 
4026 
4027 
4032 
4040 
4050 
4062 
4108 
4118 
4115 
4120 
4138 
4148 
4158 
4162 


PRINT “My goodness gracious me-" 
PRINT "You’?ve found the magic orb" 
PAUSE 188 

CLS 

LET ASCOR; OF, Z0TJ="." 

LET EC19)=@ 

LET OO2=1 

GO TO 728 

ELS 

PRINT “You got out with:" 

FOR T=1 TO 18 

IF ECTJ<>@ THEN PRINT T$#CT3 

NEXT T 

PRINT “You had "j3GP3" goid pieces " 
PRINT “And "3F3" flares" 

IF OO2=1 THEN GO TO 4188 


Dungeons of Death 115 


4178 PRINT “But your mission was a failu 

Te, “ 

4175 PRINT “Because you emerged from the 
maze without the magic orb” 

4178 GO SUB 7842 

4173 STOP 

4188 PRINT “Your mission was a complete 
success" 

419@ PRINT “You got the magic orb" 

4195 GO SUB 7848 

4200 PRINT “Well done” 

421@ STOP 

5888 CLS 

5@1@ PRINT "You are dead" 

5628 PRINT 

5838 PRINT "You died with" 

58048 GO TO 4115 

7@@8 CLS : PRINT “Your strength is "3S: 

PRINT “Your intelligence is “jl: PRINT " 

Your dexterity is "35D 

7018 PRINT "You have "jARMOUR;" points w 

orth of armour" 

7028 PRINT “You have ";GP3;" Gold pieces" 

> PRINT "You have "3F3" flares": GO SUB 

7848: GO TO 728 

7030 FOR t=1 TO 10: IF ECt3<>@ THEN PRI 

NT T$CtJ: IF ooz=1 THEN PRINT “and the 

magic orb" 

7040 LET TOTR=F+S+GP+I1+D+CO02%*1988)+ARMO 

UR+1GOOXCECII+ECZI+ECBI+EC4ItECSItECHItE 

(AI+ECBI+ECSI+EC190)) 

7@5@ PRINT "So your score is "jtotr: PAU 

SE @: RETURN 
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